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1. THE SOFTWARE SWITCH REGISTER ‘SWREG’ (LOC. 176) CAN BE 
CHANGED BY USING THE ODT FACILITIES. 
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6.1 ERROR COMMENT 


ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE i la 
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICA _— OF 
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ERROR PC OR FROM THE TEST ITSELF. 


6.2 ERROR DATA 









6.2.1 ERROR TITLE TYPE A 
1. REG READ/WRITE ER 
2. IRR REG ER 
3. ACR REG ER 
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SBTTL BASIC DEFINITIONS 
Eo INITIAL 00 ADDRESS OF THE STACK POINTER *** 1100 **« 


CVDRDB.P1 AUG~81 10:52 SEQ 0011 
i 
1 
| 
(1) scopy TAL 
(1) ; *MAYNARD 
(1 ; #PROGRAM BY BILL HEAVEY 
(1) ee *THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
a ; *PACKAGE (MAINDEC-11-DZQAC-C5), JAN, 1981. 
$8888 ite 
$SWR=160000 T ON ERROR, LOOP ON TEST. INHIBIT ERROR TYPOUT 
1 s% EDITED TO Peniit 0 DRV'S TO RUN ON FALCON (KXT11). ::GPA 
, ‘* PASQUANTONIO, JULY ° 1 33GPA 
1 1654 | $sur=165400 
18 »SBTTL OPERATIONAL SWITCH SETTINGS 
1 is SWITCH USE 
: 38 15 HALT ON ERROR 
1 a 14 LOOP ON TEST 
8 13 INHIBIT ERROR TYPEOUTS 
38 11 INHIBIT ITERATIONS 
' a 9 LOOP ON ERROR 
* LOOP ON TEST IN SWR<7:0> 
1 ie 
1 







_— ery EMT ERROR 3sBASIC DEFINITION OF ERROR CALL 
-EQUIV I0T.SCOPE :sBASIC DEFINITION OF SCOPE CALL 
, pantsce Seees DEF INITIONS 
i mus 
ay 43 FOR CARRIAGE RETURN-LINE FEED 


;;STACK LIMIT REGISTER 
INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 








PI 77500 
DSWR= 17757 
DDISP= 17757 
[conn PURPOSE REGIST 


feo 
i ; 


HARDWARE DISPLAY REGISTER 
DEFINITIONS 


Fe CP De et el a a et et le el et eet OP Ml EY et et Ne Pl ee ee 
bee 


LX LB PAL LLL LPL, P,P, Oe Fe) te te te ha te 


ee ee Se ee ee ee ee SS, S| Se ET, | __) 





REGISTER 

REGISTER 

Res REGISTER 
= REGISTER 
R4= £4 REGISTER 
R5= 25 REGISTER 
7 x REGISTER 
R7= & REGISTER 


EVDRDB.PTY 10-AUG=81 
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BASIC DEFINITIONS 


SP= a6 ;;STACK POINTER 
PC= :PROGRAM COUNTER 
7 LEVEL DEFINITIONS 


PRI= 


eSete Sete Sete Se taxes ees 






IORITY LEVE 
:sPRIORITY LEVE 
STER*’ SWITCH DEFINITIONS 


geeeeees’ 


bs 
@ 
need brant 


DEFINITIONS (BITOO TO BIT15) 


@Oowwwwm:- 
foo Peres Qare faut free bow 
mead eet ech coud ond 
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S007 gine i 


BIT 
BIT 








i ee ee ee a re 


a et et Cat et at ee a a ed Ca Cel a el el al el el el el el eel eal el el aay 
SS) 
pe . 
SAINWRAANOO 








*““CPU"* TRAP VECTOR ADDRESSES 
= 4 3 hice OUT AND OTHER ERRORS 
2 RESERVED AND ILLEGAL INSTRUCTIONS 
 PTRACE TRAP 
5 aE TRAP (8PT) 
s INPUT/OUTPUT TRAP (IOT) **SCOPE** 
: {POWER FAIL 
33 MULATOR TRAP (EMT) **ERROR** 


<°TTY KEYBOARD VECTOR 
33TTY PRINTER VECTOR 

= *PROGRAM INTERRUPT: REQUEST VECTOR 
“DEFAULT TO ONE DRV11J 


BEBE BEB PUL—X_ XX ™P™XP™W OZ O™LPUPXPH@_P~™®P OAL LP LP LP ae, 


sCL IRR AND IMR 
3b SINGLE IRR AND IMR BIT 






iia im BIT 
T$ a I STs 
BITS 


RE bir 
aes le PRIORITY ISR BIT 


ISR BIT 


afte “en PRESELECTION 
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10:52 BASIC DEFINITIONS SEQ OO14 


macn= 834 






800854 


SCHIP WRITE PRESELECTION 
0 PACR= ;PRESELECT AUTO CLEAR REG. FOR WRITING 
0 PIMR= ;PRESELECT IMR REG. FOR WRITING 
D0 0 ;PRESELECT VECTOR MEMORY ADDRESS 


-SBTTL TRAP CATCHER 





( 
(1) 000000 20 . " 
(1) s#ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.#2,HALT 
(1) * SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
“ i #LOCATION, CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 
.= 
(1) 174 090000 DISPREG: .WORD 0 s;SOFTWARE DISPLAY REGISTER 
(1) 176 SWREG:  .WORD *:SOFTWARE SWITCH REGISTER 
(1) .SBITL STARTING ADDRESS(ES) 
( , 000200 2001 7 002476 JM @NSTART :; JUMP TO STARTING ADDRESS OF PROGRAM 
000100 000104 000200 000002 “WORD  104,200,2 sIF "B EVENT’ ON Q BUS IS CONNECTED 
1 “IGNORE IT'S INTERRUPT = JUST DO A RTI 
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CVDRDB.P11 AUG~81 iO ACT11 HOOKS SEQ 0015 


(3 .SBTTL ACT11 HOOKS 
f 4 {RAAAAAAAEAAERERAAAEEEEAAAEEEAAAAAAAARAARARAERRARERRARAR AE RRARES | 
(7) ‘HOOKS REQUIRED BY ACT11 | 
ote V6 sSAVE PC 
(1) 000046 SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
(1) 000052 “WORD 0 i 2)SET Loc .52 TO ZERO 
(1) 1 -=$SVPC ss RESTORE P 
. -=2000 
5 sLONGEST TEST TIME 
*1ST PASS RUN TIME 


ADDITIONAL RUN TIME 
~SBTT. APT PARAMETER BLOCK 


© RAEARAAAEARAERAAAEAAAAAAERAEEEEAEEAAAARAEAAAARRAREEERARERREREREKREEEE 


“SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


as *RRAREERAREAEERERARAAEEAEREAARAAAAAERARAAARAEEAARAEEARAAERARERARRAREE 










-$X=. 5 3SAVE CURRENT LOCATION 
4 <3 356 POWER FAIL TO POINT TO START OF PROGRAM 
000024 2 *:FOR APT START UP 
=44  °:POINT TO APT INDIRECT ADDRESS PNTR. 
000044 SAPTHDR :: TO APT HEADER BLOCK 


IN 
3sRESET LOCATION COUNTER 


pee Lk STITT TTT 
:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


BIT MAI ADDR. 
LBOx (BITS 0-15) 
TE 

OF 


1ST PASS ON 1 UNIT (QUICK VERI 
(SECS) OF A PASS FOR EACH ADDIT 
X-E TABLE (WORDS) 


FY) 
TIONAL UNIT 


EL LBP POP PROP PLO ORL PRO PRP POO 
et eed Oe ed OD OP OE ee ed ee ed ed ee ea ed ec ed ee et 
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-SBTTL COMMON TAGS 


ERAAAAAAAAAAAEAAAAAEREAERERARARERAEAARAAAAAAEAAAAAAAAARARAEAARAAES 


:STHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
THE PROGRAM. 
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(1) USED IN 

() 

(1) 9021 , START OF COMMON TAGS 

(1) 0021 0 ;:CONTAINS THE TEST NUMBER 

(1) 0021 0 :sCONTAINS ERROR 

(i) 0021 0 3;CONTAINS SUBTEST ITERATION COUNT 
(1) 0021 0 CONTAINS S OOP ADDRESS 

(1) 0021 0 : {CONTAINS SCOPE RETURN FOR ERRORS 
C1) 00811 0 sCONTAINS TOTAL ERRORS DETECTED 
(1) 00211 S CONTAINS ITEM CONTROL BYTE 

(1) 002115 1 3; CONTAINS E 

(1) 00211 0 ::CONTAINS PC OF LAST INSTRUCTION 
(1) 0021 s:CONTAINS ADDRESS 

(1) 0021 :3CONTAINS ADDRESS OF "BAD' DATA 
(1) 0021 CONTA 

(1) 0021 0 SICONTAINS ° 

(1) 00gt 0 ;zRESERVED--NOT TO BE USED 

(1) 0021 ° 3sAUTOMATIC MODE INDICATOR 

(1) 081 : 0 INTERRUPT MODE INDICATOR 

(1) 00214 sur: WORD. DS ;sADDRESS OF SWITCH REGISTER 

(1) 00214 DISPLAY: .WORD DDISP ;SADDRESS OF DISPLAY REGISTER 

(1) 0021 $TKS: 177 337 TATUS 

(1) 0021 STKB: 1723 :sTTY KBD BUFFER 

(1) 0084 $TPS: 177 szTTY PRINTER STATUS REG. ADDRESS 
(1) OC STPB: 177566 3: TTY PRINTER BUFFER ADDRESS 
(1) 0021 SNULL: .BYTE : 7 CONTAINS NULL CHARACTER FOR FILLS 
(1) 002155 SFILLS: .BYTE Z:CONTAINS # OF FILLER CHARACTERS REQUIRED 
(1) 002156 SFILLC: .BYTE 12 EINSERT FILL CHARS. AFTER AI 
(1) 0081 STPFLG: .BYTE 0 :3"TERMINAL AVAI TAG (BIT <07>=0=¥ES) 
(1) 0021 SESCAPE: STESCAPE ON E ADDRESS 

(1) 0081 SQUES: .ASCII /2/ 3 QUESTION 

(1) 002165 SCRLF: .ASCII <15> 3;CARRIAGE RETURN 

(1) 002166 $LF: .ASCIZ <12> 7:LINE FEED 

(2) $  RERERAAREERERAERERREREREAEERAARERERAAARATAAEEREREREREREREREREEE 
(3) *SBTTL APT MAILBOX-ETABL 

( ) ee ee 
(2) ~EVEN 

(2) 1 SMA ; 

(2) 1 : .WORD AMSGTY ; 

(2) 1 : WORD AFATAL ; 

(?) 1 : WORD ATESIN ; 

(2) -WORD APASS_ ; 

(2) : .WORD ADEVCT ; 

(2) -WORD AUNIT ; 

(2) : WORD AMSGAD ; 

(2) : .WORD AMSGLG ; 
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1 : 33 

1 .BYTE AENV. :: 

1 : . BYTE AENVM ;::ENVI 

1 G: .WORD ASWREG ::APT SWITC 

1 : WORD AUSWR ::USER SWITCHES 

16 SCPUOP: .WORD  ACPUOP ii cu YPE -OPTIONS 
oom = 
38 11/ 1-11/05202,11/20=03,11/40=06,11/45=05 
3” 11/ -PDQ=07 ,d=10 
3* BIT 10=REAL TIME CLOCK 
8 BIT 9=FLOATING POINT PROCESSOR 
oe BIT Y MANAGEMENT 
$MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS.M.S. BYTE 
SMTYP1: .BYTE AMTYP1 ::MEM. TYPE, BLK# 
; .TYPE BYTE == CHIGH BYTE) 

NSEC CORE=001 


222 


NSEC BI =002 
NSEC 3 


DRESS 
T ADDR. =3 BYTES. THIS WORD AND LOW OF ‘TYPE’ ABOVE 
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eel 
ee 
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SS ,BLKAS 








ite SMAMSS SS.M.S.BYTE 

106 SMT YP4 

nC SMADRS S BLK#4 

r SVECT BUS PRIORITYA1 

SVECT OR#2BUS PRIORITY#2 
SBASE EQUIPMENT UNDER TEST 
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ERROR POINTER TABLE 
-SBTTL ERROR POJNTER TABLE 


*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR T 
ORMAT ION ‘s OBTAINED BY USING THE INDEX NUMBE 
vit eae NUMBER INDICATES WHICH ITEM i 
MB IS 0 THE ONLY PERTINENT DATA 

EACH ITER IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;sPOINTS TO THE ERROR MESSAGE 
“ sPOINTS TO THE DATA HEADER 


s*THE INF 
s*LOCATION SITEMB. 
; *NOTE1: IF 
; *NOTE2 











ov 
— 
ad 








sPOINTS TO THE DATA 
: :POINTS TO THE DATA FORMAT 


SERRPC TSIM ER 
RRPC TSTNUM 


TSTNUM 





sREG gener lte ER 
sERRPC Sheape 
; SERRPC TSTNUM 


sIRR REG ER 





OE RRE TSTNUM BUSADR 





RRPC TSTNUM 






sACR REG ER 
2 TEAR TSTNUM 
RRPC TSTNUM 





s IMR REG_ERROR 
sERRPC TSTNUM 
sSERRPC TSTNUM 











:ISR_REG_ERROR 
sERRPC TSTNUM 
SSERRPC TSTNUM 


vector eee fen 


itanee. Ts 1STNUM 






SBDADR 


BUSADR 
SBDADR 


VAM 
VECVAL 


VAM 
VECVAL 


VAM 
~ECVAL 


VAM 
VECVAL 


VAM 
VECVAL 


XPCT 
DAT 









EXPCT 
SGDDAT 


ADDR 
VECLOC 
ADDR 
VECLOC 
ADDR 
VECLOC 
ADDR 
VECLOC 


ADDR 
VECLOC 


RCVD 
SBDDAT 


F 


RCVD 
SBDDAT 


HAT CAN — 


TABLE . PERTINENT. 


S (SE 





RCVD 
SBDDAT 


RCVD 
SBDDAT 





RCVD 
SBDDAT 


RCVD 
SBDDAT 


SEQ 0018 
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ERROR POINTER TABLE 


— 
So 









EM10 :CHIP STAT ER 

Dig SERRPC TSTNUM R VAM ADDR a} 

M 7SERRPC TSTNUM ADR VECVAL VECLOC AT 
sERROR 11 

EM11 fa a ~ eh 





ADDR 
ac Ht 1STNOM SBDADR VEC VECVAL VECLOC 









DT 

0 
sERROR 12 

EM12 : INTERRUPT TEST ERROR 

— sERRPC TSTNUM BUSADR VAM ADDR XPCT 

y sSERRPC TSTNUM SBDADR VECVAL VECLOC DAT 
sERROR 13 sMULTIPLE INTERRUPTS RECEIVED 

-  EM13 SMULTIPLE INTERRUPTS or 

5) sERRPC TST ADDR ay 

or sSERRPC TSTNUM SBDADR VECVAL VECLOC DAT 
sERROR 14 

EM7 s ILLEGAL VECTOR ADDR MEM ERROR 

DH4 “ ERRPC TSTNUM TESTPC BUSADR VAM ADDR 

- sSERRPC TSTNUM SGDADR SBDADR VECVAL VECLOC 


; BUS REGISTER ADDRESS POINTERS 





:COMMON PROGRAM LOCATION(S) 
 SCONTAINS TEST NUMBER ON ERROR 





SEQ 0019 


RCVD 
SBDDA 


RCVD 
SBDDAT 


RCVD 
SBDDAT 
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PROGRAM START 











. -SBTTL PROGRAM START 
~SBTTL INITIALIZE THE COMMON TAGS 
33CL THE COMMON TAGS (SCMTAG) AREA 
:sFIRST LOCATION TO wine 


(R6)+ “CLEAR MEMORY LOCAT 
#SWR,R6 ::DONE? 
::LOOP BACK IF NO 


#2100.SP ::SETUP THE STACK POINTER 
ss INITIALIZE A FEW VECTORS 
#SSCOPE OTVEC 33107 OT VECTOR FOR SCOPE ROUTINE 
ee pt Cc’: mT VECTOR FOR ERROR ROUTINE 
O.setarveces iL 5 
nits VECTOR FOR TRAP CALLS 


as TRAP or RAPVEC 
BSTRAPVECS iitRA 
sn SFPURVEC {POWER FAILURE VECTOR 















CLR 













PEER EEL EIS | 







































CLR 2 INITIALIZE NUMBER OF ITERATIONS 
CLR *:CLEAR THE ESCAPE ON ERROR AD0« SS 
MOVB +i SCRAAX ALLOW ONE ERROR PER TEST 
MOV #. .SLPADR * INITIALIZE THE LOOP ADDRESS FORK SCOPE 
MOV #. -SLPERR ° SETUP THE ERROR LOOP ADDRESS 

33SIZE FOR A HARDWARE SWITCH REGISTER OR IT IS 

*:EQUAL TO A =1'', SETUP FOR A SOF . 
MOV RAVEC OtSP) 33 
MOV Q#ERRVEC :: 
MOV SUR 3 
MOV #DDISP,DISPLAY :: 
CMP #1, aSWR °: TRY 
ANE : :BRANCH IF NO TIMEOUT TRAP OCCURRED 

33 SWR IS NOT = -1 

BR 65% 3 H IF NO TIMEOUT 

64$: Moy #65$, (SP) *:SET UP FOR TRAP RETURN 

65$: MOV #SWREG ::POINT TO SOFTWARE SWR 
MOV aDIsPReG,D DISPLAY 

66$: MOV (SP)+, a#ERRVEC ;::RESTORE ERROR VECTOR 
CLR SPASS s:CLEAR PASS COUNT 
BITS $#APTSIZE.SENVM ::TEST USER SIZE UNDER AP 
BEQ *:YES,USE NON-APT SWITCH 

- MOV #SSWREG, SUR *:NO,USE APT SWITCH REGISTER 
CLR sCLEAR ERROR NUMBER 
CLR “CLEAR MESSAGE TY TYPE 
CLR ;CLEAR TES 
CALL ; a FOR ae (KXT11) 33GPA 
BEO ; BR IF NOT KX KXT og ysTEn GPA 
BIC : CALTON L — ::GPA 
BIC sees Tm 3 :GPA 
BIC 3+ 2 sAND TRAP TO LEVEL 6. GPA 
CMP ; 1S SBASE VIRGIN 7? ° GPA 
BNE * BR IF NOT. 7: GPA 
MOV 60.$BASE : YES, USE ENGINEERING DEFAULT ::GPA 


SEQ 0021 





Yo 


35 


20Oono 


~ haat 


+--+ +--+ + + 


- 


+_+_++ 





11 TST PRT 
» otkuGee 10952 


eH 000042 
> 00042 
177777 

002210 

2737 000001 


177777 
002134 
002440 


016054 
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Ooe434 


002434 


INITIALIZE THE COMMON T 


CHECK OPERATING ENVIRONMENT 
TST ah42 ARE WE IN ACT/XXDP AUTO MODE? 
















$ ; 
a2, a#h6 “IS IT ACT AUTO MODE? 
#=-1,XXDP “SET XXDP CHAIN MODE INDICATOR 
1$: NV, #1 sARE WE IN APT AUTO MODE? 
2$: #1, $AUTOB *SET AUTO MODE INDICATOR 
“PRINT TITLE IF NOT IN ACT OR APT AUTO MODE 
5$: INC #~1 sFIRST TIME? 
5% i SKIP Ip TITLE IF 
SR RS, TOBUF 2 INTO BUFFER AREA 
TST SAUTOB att ore i ? 
BEQ 4$ “BRANCH TO TITLE TYPEOUT IF NOT 
TST XXDP 71S THE AUTO MODE UNDER XXDP? 
BEQ 5g ‘SKIP TITLE IF NOT 
4$: TYPE ,TITLED “PRINT OUT THE TITLE 
TYPE .TLCABL “PRINT DRV11J CABLE REQ'D 


-GET THE VALUE IN THE SOFTWARE SWITCH REGISTER 
S$: TST sARE WE IN AUTOMATIC MODE? 




























BNE START “BRANCH IF YES 

GTSWR “ASK FOR SUR INPUT FROM CONSOLE 
START1: CLR = CLEAR WNIT 

MOV “UP TO 4 DRV11U°S 

BIC “POSITION OF Davitu's 

MOV ‘GET BASE ADDRESS 

MOV sMAKE BUS REG.POINTER = BASE 

BIT :1S FIRST DRVIl-J SELECTED 

JMP *NO,ADVANCE BASE DRV11J ADDRESS 

> MOV “SET UP REGISTER ADDRESS POINTERS 
> MOV *LOAD EM 

ADD ; 

cmp ALL ? 

BNE “BR IF NOT 

JSR sEXTEND TRAP CATCHER 204-1774 

MOV sALWAYS S RESET STACK 

MOV cL T COUNTER WITH UNIT # 

CMPB ARE we IN APT MODE? 

BEQ 2BR IF Aves SKIP RESET 

RESET * INITIALIZE 
NEXPA2: MTPS 





SEQ 0022 


2 
vores paytts ¢ DIAG TST Pate. MACY11 306(1063) 10-AUG-81 11:00 * BAGE 2 
AUG~81 10:52 INITIALIZE THE COMMON TAGS SEQ 0023 


23 © SEEEEAEEEEAAEAERAAAAAAAAAAAAAARAAARERAAAAAAARARAARAAARAAAAAAAARAAAE 


TEST 1 TEST CHIP INTERRUPT 


 eeethehheeeeeekedeeteererteterereedaeteneneeeneeatereneeeereresr 



















FLAG 
sINIT STACK IN CASE OF ILLEGAL INT. LOOP 
PRESELECT VECTOR MEM ADDR 
SWRITE VECTOR + Cale LvO 





we f$r1: SCOPE 

i! + : START WITH GROUP 1 

i MOV sREGISTER IS COMMON FOR BOTH GROUPS 
‘i 902119 MOV 3SET UP LOOP RETURN 

i MOV : COUNTER FOR BOTH GROUPS 

13 120$: JSR CL 

i MOV s EXPECTED GDDAT FOR ISR,IMR 
mC 002442 MOV = STORE CLEAR SINGLE IMR CODE 
i JSR = CLEAR IRR REGS 

if 900300 MOV STORE VECTOR ROUTINE 

if 2 MOV ; STORE 

a 111$: CLR * CLEAR INT. 

‘ MOVE 

‘1 MOVB 

"i MOV 

“ MOVB 

i" MOVE 

‘1 MOVB 

"5 





‘SAVE BUS ADDR 
“SET ALL IMR BI ts 
‘CLEAR MASK ON SINGLE BIT 
MOVE *LMDO4 = COMMON VECTOR 
MOVB #24 ges :USED IN TEST OF GROUP 2 
‘ : GROUP 1 TO PASS 






Ee T 2. 
THE CHIP 


4: 
26 
+ 
+ 
y 
266 
2¢ 








#241, (RO) “LDS? = ARM 
INTFLG [CHECK FOR INTERRUPTS 
11 sERROR,ILLEGA'. INTERRUPT 
; 1S: INTFLG “RESET INT. COUNTER 
; #SIRR, (RO) [SET ALL IRR BITS 
a NTFLG sCHECK FOR NO INTERRUPTS 
4 1 sILLEGAL INTERRUPTS 
2$: INTFLG [CLEAR INT. COUNTER 
1 #B1T1,1(R2) ;SET I/E.E EXPECT INTERRUPT 
124 #1 AT “EXPECT ONE IN 
126 NTFLG, SBDDAT < SHOULD HAVE ONE RR UTERRUPT 
4 SINTERRUPT TEST ERROR 
ty 002124 ~" oret710 SGDDAT Y,DIR,I/E, CHIP = 31X 
8 Be oe aT :ESRA ADBRESS 
y 002126 #7. SEDDAT *CLEAR UNDEFINED BITS 
BE 126 — 
59 SCSRA REG ERROR | 
4$: SBDADR READY TO READ ISR REG. |; 
92 ht sep “SET UP FOR BYTE READS 
























L 2 
CVDRDB DRV11J DIAG TST PRT2.__—s- MACY’ 30G(1063) 10-AUG-81 11:00 PAGE 2-1 
EVDRDS.PI1  Y0-AUG=81 10:52 se TEST CHIP INTERRUPT ,GROUP 1,GROUP 2 SEQ 0024 
a3 0035 124 :SET UP_FOR BYTE EXPECTED 
° 1) : 126 sEXPECTED 
95 003602 11 240 ;LOAD MODE TO READ ISR 
% 005606 1 
O? OC 61¢ 152 002126 
6 RB 003620 1 
99 0036. 31SR_ERROR 
0 003624 1 1 002124 5S: sSTORE EXPECTED 
01 003682 11 bb :LOAD MODE FOR IMR 
’ a 7a. 11 $$ 
103 © 00364¢ 124 002126 
q "5 : P IMR ERROR 
06 OC gy 1 1 002124 6$: SEXPECTED IRR 
07 003662 112710 0 ;LOAD MODE BITS FOR IRR 
98 003666 11 6 
09 0036 3737 124 002126 
11 0037C ; IRR ERROR 
i a 14 ie 1 4 7$ 
14 d 11 y b02126 
15 0 7 002124 002126 
13 05796 001401 sACR ERROR 
18 0 7 002124 108: AT " 
19 003736 1 140 (RO) § ;CLEAR HIGHEST PRIOR ISR 
20 OC 11671 240 SR (RO) ;LOAD MODE TO READ ISR 
22 a i ; 124 002126 DAT. $BDDA 
5%, 008762 I Z1SR REG ERROR 
35 03764 01 101710 002124 11$: #101710,$GDDAT :RDY,DIR,1/E, CHIP - 31x 
5? Of 77k 11337 0031 ta) ee, SSAA Apbness 
28 00400 7 002126 #7 ,SBDDAT :CLEAR UNDEFINED BITS 
29 00401 rar O02i24 002i26 $SDDAT ,SBDDAT 
31 004020 2 SCSRA_REG ERROR 
i e858 1 100710 002124 12$: #100710 $GDDAT :RDY DIR. CHIP = 31X 
33 00403C 1 e119 (R2) CLEAR I/E 
34 004034 01 126 (R2) ,$BDDAT  § ;READ CSRA 
35 00404 7 002126 [CLEAR UNDEFINED SITS 
38 00405¢ sCSRA REG ERROR 
3 96094 138: :GET NEXT ISR,IMR EXPECTED RESULTS 
D 00406. 0567 012656 CHECK FOR END 
04070 005 44 ; INCREMENT MASK BIT TO CLEAR 
04( 7 00334 STEST NEXT ISR BIT 
104 100 7 002462 14$: STESTED BOTH GROUPS? 


::BR IF 

“SETUP FOR GROUP 2 

*CSRC = CONTROL GROUP s 
—S€SRD = DATA GROUP 


TST 
DRCSC,RO 
DRCSD,R1 





BIRDS cone 


me 


a. ate 
CVDRDB 11J DIAG TST PRT MACY11 (1063) 10-AUG-81 11:00 
Pit Nook - 2s 19 TEST CHIP INTERRUPT POROUP £4 «GROUP 2 SE@ 0025 






















CVDRDB.P11 AUG~81 10:52 
9 004116 000137 003306 IMP «1208 ;D0 GROUP 2 
$$ © RERAAEAEAARAAEAERAREEAEEAAEAARARAEREAAARAARARARAARARAAAAREREAAEEE 
( S*TEST 2 TEST ACR/ISR INTERRUPT . GROUP 
( ) « -EaeekEeeRekekeeReeheeeReRteeteeteekeeaneeekeeeeeeeeeneereeeeense 
(2) OC $12: SCOPE 
Jt OV DRCSA,RO 
i MOV = DRCSB.R1 
1 MOV - DRCSA,R2 
if 002110 MOV #1T1$,SLPERR = SET _UP LOOP RETURN 
a 462 MOV T :D0_T S 
1 120$: JSR EAR ALL CSRS 
04 MOV SEXPECTED GDDAT FOR ISR 
60 Oo 002442 MOV STORE CLEAR SINGLE IMR CODE 
61 Oo JSR [CLEAR IRR REGS 
2 0 000300 MCV SSTORE VECTOR ROUTINE 
63 Of MOV SSTORE PSW 
4 0 111$: CLR [CLEAR INT. FLAG 
65 OC 06 MOV 3INIT STACK IN CASE OF ILLEGAL INT. LOOP 
66 OC 71 BIC INTERRUPT ENABLE 
57 006 4 MOVB SCLEAR MASTER 
68 004 1 mova 386 #24 [CLEAR MASTER MASK GP1 
49 OC 71 MOVB = #PACR SPRESELECT ACR FOR cri fing 
> O 1 MOVB =: (R3) , (R :NEXT BIT INTO A 
71 OC 10 MOVB  #PVMA :PRESELECT VECTOR MEM ADDR 
72 00+ 1 MOVB SWRITE VECT BY0.LVO 
i MOV : S$ 
74 (0 1 MOVB ;SET ALL IMR BITS 
5 Of zt MOVB ; ON SINGLE BIT 
76 Of MOVB ;LMD04 = COMMON VECTOR 
78 000001 $e1T1,1(R2) 3SET_1/E,NO_INTERRUPT 
> Of INT TFLG :CHECK FOR INTERRUPTS 
8 d i ERROR, ILLEGAL INTERRUPT 
B2 OC 1$: INTFLG SRESET INT TER 
Bs OC #SIRR, (RO) SET ALL IRR BITS 
BS OL NTFLG CHECK FOR NO INTERRUPTS 
87 OC 1 sILLEGAL INTERRUPTS 
88 OC 2$: INTFLG :CLEAR INT. COUNTER 
90 OC 2 aT cre) sUSED IN TEST OF GROUP 2 





GROUP 1 CHIP_TO PASS 
SENABLE TO GROUP 2 CHIP. 
ARM THE CHIP 


4261, (RO) 
ZEXPECT ONE_ INTERRUPT 


InfFL. $e00Ar SHOULD HAVE ONE INTERRUPT 
- s INTERRUPT TEST ERROR 


#PR7 
R1,$BDADR sREADY TO READ ISR REG. 
SBDDAT “SET UP FOR BYTE READS 





CVDADB. PI = tO-k of 


PRT 
1"40%52 


244 


as 2 
MACY11 39g¢1065) 10-AUG-81 11:00 


002126 
002124 
002126 
002124 


002126 


002126 





TEST ACR/ISR INTERRUPT = 





AGE 2-3 


eGROUP 1,GROUP 2 














CLR :SET UP FOR BYTE EXPECTED 
MOVB *LOAD MODE TO READ ISR 
CHP :ACR SHOULD CLEAR ISR 
ERROR :ISR_ ERROR 
5$: MOVB = STORE EXPECTED 
MOVB :LOAD MODE FOR IMR 
MOVB 
CMP 
BEQ 
ERROR : IMR ERROR 
6$: MOVB sEXPECTED IRR 
MOVB *LOAD MODE BITS FOR IRR 
MOVB 
CMP 
BEQ 
ERROR :IRR_ ERROR 
7$: MOVB *EXPECTED ACR 
MOVB 
MOVB 
CMP 
BEQ 
ERROR sACR ERROR 
10$: TST 3GET NEXT ISR,IMR,IRR EXPECTED RESULTS 
CMP * CHECK END 
BEQ 3DONE WITH GROUP TEST 
INC s INCREMENT MASK ait TO CLEAR 
11$: pee : TH GROUPS? 
MOV : GROUP 2 
MOV sCSRC = CONTROL GROUP 
:CSRD GROUP 
JMP 3 2 
f {ARARAAAARERAAAAARARERELELERAARERAAREARAAERERREREREREARREEREERERE 
s*TEST 3 TEST VECTOR ADDR MEM,LEV 0-7,BY0-3, (204-1774) .GRPS 1,2 


T3: 


ee 
1208: itty 


1218: Q6C _ 





RREAAARAARAAARAAAAAAARESEERARAAAARAERAAAAAEARAAARAERAAAEARARAREREEEE 
OPE 






CODE 


Sie 
(1063) 10-AUG-81 11:00 NSE 24 
TEST VECTOR ADDR MEM.LEV ? ,BYO-3, (204-1774) ,GRPS 1,2 


-VECLOC sSTART AT VECTOR 204 


CVDRDB DRVI1TJ DIAG TS "% eo cyi1 


CVDRDB P11 SEQ 0027 


T 
002452 111$: 
112$: 






PEELE 





+++ + 


=<SaS 


— 


~+_+_+_+ 


—t-t 


in ne 





Lh 


000002 
002470 


1 
124 


002126 
002126 


002126 


002124 


113$: 


1$: 


2$: 


5$: 





o oO j.@ 
faa ta ye 
o xz o 


MOV 











CLRIRR 
Raft (R2) 
weCLoe a 
VECPAT 
VECPAT 
#INTBY4, (R3) 
#340,2(R3) 
NTFLG 







i <RO) 
IMRLOC, (RO) 


#241, (RO) 

INTFLG 

11 

INTFLG 

— . (RO) 
NTFLG 


1 
INTFLG 
#81T1,1(R2) 
BYNUM, SGDDAT 





INTFLG,S8DDAT 
— 


FPR op 
SBDDAT 
SGDDAT 
(R4) $6 AT 
seobAt ) {$600Ar 


<Rs) o SGDDAT 
#MIAR , (RO) 





sINIT STACK IN CASE OF ILLEGAL INT. LOOP 
[CLEAR INTERRUPT ENABLE 












:CLEAR_ IRR REGS 

sUSED_IN TEST OF GROUP 2 
;ARM GROUP 1 CHIP TO PASS 
sENABLE TO GROUP2 

:GET VECTOR 








: T 0- 
SPRESELECT VECTOR MEM ADDR 






“DONE WITH BYTE COUNT 

3NO.LOAD V 
BUS ADDRESS 

SET ALL IMR BITS 

sCLEAR MASK ON SINGLE SIT 


3LMDS7 = ARM THE CHIP 
;CHECK FOR INTERRUPTS 


sERROR, ILLEGAL INTERRUPT 
sRESET INT. COUNTER 
sSET SINGLE IRR BIT 
CHECK FOR NO INTERRUPTS 


s ILLEGAL INTERRUPTS 
CLEAR INT. COUNTER 





sSET 1/€, EXPECT INTERRUPT 
sENPECT I 1 To 4 INTERRUPTS 
BASED ON N BYTE COUN VALUE 
: SHOULD TO ul INTERRUPTS 


“BASED ON BYTE COUNT VALUE 


: INTERRUPT TEST ERROR 


sREADY 10 READ ISR REG. 
sSET UP FOR BYTE READS 
:SET UP FOR BYTE EXPECTED 
sEXPECTED DATA 

:LOAD MODE TO READ ISR 


:1SR_ ERROR 
STORE ag Ly 
sLOAD MODE FOR IMR 


VALUE 
VECTOR FOR NEXT BYTE COUNT 











. 
DAVITY DIAG TST PRT2.__—«- MACY11 30G(1063) 10-AUG-81 11:00 
P11 AUG~81 10:52 7 TEST VECTOR ADDR MEM.LEV t= oe (204-1774) ,GRPS 1,2 SE@ 0028 | 
‘ 1 (R1) ,SBDDAT 
i ! 803132 002126 AT ,SBDDAT 
WV 2 . 4 ,' 
i) 9406 IMR ERROR 
+ a 
0! 0051 SGDDAT 


LOAD MODE BITS FOR IRR 


' $2 6$: 
0 #MIRR, (RO) 

1111 36 (R1) ,S8DDAT 
124 002126 SGDDAT SBDDAT 




















we hr” 
segue 

o> 

> o rs 





ATA on GROUP 
GROUP BYTE COUNTS 0-3 
LEVELS o7 FOR EACH BYTE COUNT. 


{ AAAAAARAARARAAARARRAEE SEAEREAAACAAAARARARAAARARARAARAAAAEEAEARAES 


SRTEST 4 TEST VECTOR ADDR MEM,LVLS 0-7,BY0-3,(0-200)GRPS 1,2 





. : 
uC : }' ; 3 s IRR ERROR 
WV. t ' Jt g 7$: SGDDAT 
05 39¢ Q 000254 #MACR, (RO) 
105330 1 6 (R1) ,SBDDAT 
00: if NS757 002124 002126 $6DD DAT ,SBDDAT 
00544 1040¢ 124 108: SGDDAT ro 
00535. 444 ISRLOC.(RO) | CLEAR SINGLE ISR BIT 
905356 11 240 #MISR, (RO) *LOAD MODE TO READ ISR 
105362 1 26 (R1) , $8DDAT 
005 366 7 124 002126 $cb SGDDAT , SBDDAT 
05376 & sISR REG ERROR 
it 11432 11$: RS,RESTRP “RESTORE VECTOR JUST TESTED 
OC 17374 KXTELAG ‘ KXTHI 22 GPA 
056 002452 $200, VECLOC : YES, FINISHED 204-374 2? GPA 
X ian : SKIP NEXT TO FIND OUT :36PA 
05402 002452 #2000,VECLOC FINISHED? 
DC DC 1 Ae bes VECTORS 204-1774? 
005 OC 11 sTEST NEXT VECTOR AD 
i 0 12$: (R4)+ > INDEX EXPECTED ISR AND IMR PATTERN 
mC 0 MRL :ST LEAR FOR NEXT MASK BIT 
if i “STORE SET FOR NEXT IRR BIT 
ie ue sSTORE CLEAR FOR NEXT ISR BIT 
i mC “SETUP TO TEST NEXT VECTOR LEVEL 
JX a - sFIN 7 
096% O01 VES ee 
203476 00: ee s INDEX SWITCH CHANGE REQUEST 
1 002456 #400, VECVAL FIN ALL BYTE COUNTS. 0-3 
oC sFIN GROUPS? 
i" 121$ 300 YTE COUNT FOR 
14$: NT FINI TWO GROUPS? 


CVDRDB 


WJ TST PRT2 
CVDRDB.P1 NO-AuG-81 10:52 


mish. tov 


Abe AP Ap ad ad ab ap ap ae ap ad 


DOD O00 0E¢ 





Ser 


SEO 


= = Ste 
eet yy —, 
cel esol 
we re 
~~ & a 


dD 3 
MACY11 39961065) 10-AUG-81 11:00 P 


ooee7s 


002456 


On 


000002 
002470 


AGE 2-6 
TEST VECTOR ADDR MEM,LVLS 0-7,BY0-3,(0-200)GRPS 1,2 


© © SESAEAEAAAEAAAAAAKAAAAAAAATARAARARAAAAARARAAARARAAARARARARARARAARE 



































$14: SCOPE 
MOV 
MOV 
MOV 
MOV :D0 TwO GROUPS 
120$: MOV ‘INIT FOR FIRST BYTE COUNT 
JSR “CLEAR ALL 
MOV ‘START VECTOR LEVEL 0.BYTE COUNT 0 
121$: MOV *ISR,IMR PATTERN 
MOV “START LEVEL COUNT 0-7 
MOV *STORE CLEAR SINGLE IMR BIT CODE 
MOV “STORE SET SINGLE IRR BIT CODE 
MOV “LOOP RE . 
111$: CLR “START AT VECTOR 0 
112$: MTPS g : 
MOV #2100,SP SINIT STACK IN CASE OF ILLEGAL INT. LOOP 
BIC welt (R2) ; INTERRUPT ENABLE 
JSR CLAIRR ‘CLEAR IRR REGS 
mMovB #241, (R2) “USED IN TEST OF GROUP 2 
‘ARM GROUP 1 CHIP TO PASS 
SENABLE TO GROUP 2. 
MOV CLOC,R3 “GET VECTOR 
JSR RS, CAT200 *STORE TRAP CATCHER FOR 0-200 
MOV VECPAT 
ROR T sROTATE VECTOR ADDR TWO RIGHT 
ROR PAT *TO WRITE VECTOR MEM ADDR. 
MOV #INTSR3.(R3) :STORE VECTOR ROUTINE 
MOV #340,2(R3) = STORE 
CLR INTFLG ‘CLEAR INT 
MOV BYNUM, BYCNT “BYTE C 
:FOR 1 TO CTORS. 
MOVB —- VECVAL.. (RO) *PRESELECT VECTOR MEM ADDR 
113$: MOVB  VECPAT,(R1) “WRITE VECT 
DEC VENT “DO 1 TO 4 VECTORS ; 
ANE 1 “WRITE VECTORS BASED ON BYTE CUUNT 
MOV RO. $BDADR * SAVE 
MOVE = #SIMR, (RO) ‘SET ALL IMR BITS 
nove IMALOC, (RO) “CLEAR MASK ON SINGLE BIT 
MOVB ; mo :LMDS7 = ARM THE CHIP 
IntFLG ‘CHECK FOR INTERRUPTS 
»FRMBUF sRESTORE 0-202 
it SERROR, ILLEGAL INTERRUPT 
CAT200 “RESTORE TRAP CATCHER 
1$: INTFLG “RESET INT. COUNTER 
IRRLOC, (RO) “SET SINGLE IRR BIT 
ys sCHECK FOR NO INTERRUPTS 
R5,. FRMBUF sRESTORE 0-202 
11 *ILLEGAL INTE 
R5,CAT200 RES T 
2$: INTFLG “CLEAR INT. COUMIER 


#PRO 


ay" sar 


“a Bm 1) 


isl PRT2 


1 10:52 


002436 
002124 
011374 

12024 


MACY11 306 (1065) 


oo2124 
4 
002126 
002126 





10-AUG-81 11:00 . PARE 2-7 
TEST VECTOR ADDR MEM,LVLS 0-7,BY0-3,(0-200)GRPS 1,2 


B1S8 #BIT1,1(R2) 3 SET Age Eee! od INTE 
BYNUM, SGDDAT sEXPECT NUMBER INTERRUPTS 
*EQUAL TO BYTE co 











INTFLG,S8DDA" ;SHOULD HAVE R "or INTERRUPTS 
;EQUAL TO BYTE COUNT. 
SGDDAT , SB8DDAT 
RS, FRMBUF sRESTORE 0-202 
TINTERRUPT TEST ERROR 
R5 fATe0O ZRESTORE TRAP CATCHER SUB 


















‘LOAD MODE TO READ ISR 
06362 ( 124 002126 
011374 


0640 2049 thee 118: 


sRESTORE 0-202 


31SR_REG ERROR 
ZRESTORE TRAP CATCHER 
SRESTORE VECTOR JUST TESTED 





MOV 
MOV 
cmp 
BEQ 
JSR 
a 
MTPS 
1 MOV ;READY TO READ_ISR REG. 
1 CLR SET UP FOR BYTE READS 
1 CLR <SET UP FOR BYTE EXPECTED 
. 124 MOVE *EXPECTED DAT 
: is HOVE “LOAD MODE TO READ ISR 
124 002126 CMP 
hd BEQ 
106 011374 JSR sRESTORE 0-200 
7 N06 ERROR ‘ISR ERROR 
: 12024 JSR *RESTORE TRAP CATCHER 
06 1164 o1 002124 5$: MOVB : STORE mEXPECTED 
ba ie isle me fat 
: 124 002126 CMP AT, SBDDAT 
: 001 a3 BEQ 
: r¢ 011374 JSR sRESTORE 0-202 
542 Of 37 12024 Osh <APSTORE CATCHER 
‘ + 9 
NSC 4 6$: CLR 
7 0 mOVB sLOAD MODE BITS FOR IRR 
! 6 MOVB TRE ODAT 
1G ; ; 124 002126 CMP CR SODDAT 
106¢ 70 =0014C BEQ 
106272 004537 011376 JSR -FRMBUF sRESTORE 0-202 
106300 OC 4 JSR RS,CAT200 *RESTORE TRAP CATCHER 
106 50: 005¢ 136 7$: CLR Beach, (RO 
fret : : ste ill T 
00635 ‘ f 4 132 002126 Cn taal T 
06330 004537 011374 JSR «RS, FRMBUF sRESTORE 0-202 
0063: 94004 ERROR 4 sAC 
Aste OL ; 4 JSR “RESTORE TRAP CATCHER 
Corte $030. ; 15: ove :CLEAR ISR 
: 
MOVB 
CMP 
BEQ 
JSR 
ERROR 
JSR 
JSR 





CVDRDB DRV11J DIAG TST PRT2 
EVDRDB.P1Y 1 a 10:52 


000204 


Boe0% 


~n* vee 


bf 
bf 
46 
Lf 
As 
7 . 
t 
As . 
As ‘ 


002422 
00536 


006524 004537 011374 








MACY11 3061065) 


002452 


002456 


002456 


10-AUG-81 11:00 


F 3 
PAGE 2-8 


TEST VECTOR ADDR MEM,LVLS stom (0-200)GRPS 1,2 











£400. e VECVAL 
121$ 


CNT 
DRCSC ,RO 
DRCSDR1 
1208 


RS . FRMBUF 


XT_VECTOR LEVEL 
7? 


cL HANGE 
;FINISHED ALL FOUR BYTE COUNTS 
; YES. FINISHED GROUP 

.bO NEXT BYTE COUNT WITH 






L 
YTE COUNT END 
VEL.SAME BYTE COUNT 












FOR 
LEVELS nae FOR EACH BYTE COUNT. 
RESTORE Sm TEST 


SRAAAARAARERERERREEREREEEEERERRERRERRRARAARRERAAEREERAERERERRERES 


T VECTOR ADDR UNIQUENESS IN FIXED MODE FOR GRPS 1,2 


© RRRRRERERERERERERERAERERERERERAERRERERERRERAEREERERREREAREERERE 


12$: 

13$: 

14$: 
MOV 
MOV 
JMP 

15$: JSR 

:STEST 5 

TST5: SCOPE 
JSR 
JSR 
JSR 
JSR 





~ im j 3 
Syeesessssss Lees 





RS,.CLRCSR 


~ TRPCAT 
RS. STRVEC 


gt » VECVAL 
RS, CLRIRR 


rg SM 


#SETVEC .R5 


Seat 





#PRO 
#SIRR, (RO) 


sBYTE ‘ex = 4 
LEVELS = 0-7 









: Gs 

; S$ BUFFER 

: Y FOR GROUPS 1 
: O COMMON HANDLER 


:STORE BUS gress 
sPRESELECT GP1 ts Ai WRITING 
rot ALL ACR BIT 
: CLEAR oe “ girs or eP I 
“CLEAR INT. FLAG 


sSET ALL IRR BITS 







2 
2 sGPA 


6 3 
CVORDS poy tts DIAG PRT2 MACY11 30§(1065) 10-AUG-81 11:00 PAGE 2-9 
C Pl 1 T 























81 10:52 TEST VECTOR ADDR UNIQUENESS IN FIXED MODE FOR GRPS 1,2 SE@ 0032 
106654 1 MOVE — 4261., (RO) ;LMDS7 = ARM THE CHIP 
106664 005 1st ig CHECK FOR NO INTERRUPTS 
06672 1 11 sILLEGAL INTERRUPT 
0066 . : INTFLG 
06 SPACR (RY) sPRESELECT GROUP2 FOR WRITING 
0671 SALL ACR BITS SET GP2 
067, icin. a CLEAR ALL IMR BITS GP2 
006 My (R1) SET ALL IRR BITS 
067% (ri) 3LMDS7 = ARM THE CHIP 
006 INTFLG CHECK FOR NO INTERRUPTS 
06 1 ILLEGAL INTERRUPT 
006 INTELG 
0¢ J71,1(R0) =: SET_ INT, ENABLE EXPECT INTERRUPTS 
006 - SGDDAT ZEXPECT 64 INTERRUPTS 
006 INTELGSBODAT SHOULD HAVE 64 INTERRUPTS 
10706 002126 ke 
'' 
om 1 INTERRUPT TEST ERROR 
07 002124 38: #101710, $GDDAT zRDY DIR, 1/E. »CHIP = 31X 
J ’ e 


(RO) ,SBDDAT 
#7, SBDDAT 
ScbDAT,SBDDA 


é :CSRA REG ERROR 
#310, SGDDAT “STORE EXPECTED 
$8) CSRC 


r CLEAR UNDEFINED BITS 





J 1 ADR : 

07 cai SBDDAT : 

10707 BIC #7, SBDDAT “CLEAR UNDEFINED BITS 
ue CMP ScbDAT.SBDDAT 

W) BEQ 3 

i ERROR sCSRC ERROR 

Oo MOV R2,SBDADR *CSRB ADDRESS 

x CLR DAT 

I { CLR T 

007124 mOVB SR, (RO) :READ ISR 

0071 3¢ move (Re) AT 

i : 002126 cw AT. SBDDAT 

a ERROR ISR ERROR, GP1 

207" mOVB MR. (RO) “MODE BITS FOR IMR 
d¢ 002126 ~ 

Jv BEQ 

x ERROR 5 sIMR ERROR, GP1 

i) MOVB RR, (RO) “MODE BITS FOR IRR 
007" MOVB  (R2).$BDDAT 

907206 002126 cp SGDDAT. SBDDAT 














































11) DIAG TST PRT2 MACY11 30g (1063) 10-AUG-81 2-10 
EVDRDS. P1 1 10:52 T TEST VECTOR SS IN FIXED MODE FOR GRPS 1,2 SEQ 0033 
ERROR sIRR ERROR 
002124 10S:  ‘0V *EXPECTED ACR 
#0VB TREAD ACR 
MOVB 
002126 CMP 
BEQ 
ERROR sACR ERROR 
11$: CLR 
CLR 
MOV :CSRD ADDRESS 
MOVB SREAD ISR ,GP2 
MOVB 
002126 CMP 
BEQ 
ERROR sISR ERROR, GP1 
12$: MOVB “READ IMR GP2 
MOVB 
002126 CMP 
BEQ 
ERROR sIMR ERROR, GP2 
13$: MOVB sREAD IRR 
MOVB 
002126 CMP 
BEQ 
ERROR sIRR ERROR, GP2 
14$:  MOVB sREAD ACR 
002124 MOV 
MOVB 
002126 CMP 
f BEQ 
I ERROR sACR ERROR, GP2 
Wt 15$: MOV 
oC MOV :VECTOR BUFFER 
dC 002124 MOV ‘START WITH FIRST VECTOR 300 
Oo s 16$: OV “VECTOR BUFFER ADDRESS 
074 002126 CMP 
0074 3¢ BEQ sVECTORED PROPERLY 
0745; ERROR “VECTOR ADDR MEM ERROR 
‘! 002124 17$: ADD 
“ibe ie ST ug 
43 00 CMP T,#400 * YES, REACHED VECTOR 400 2? :.GPA 
0074 5¢ BLO > NOT YET, CONTINUE GPA 
00746¢ 002124 a MOV #300, SGDDAT : YES, RESET EXPECTED TO 300 : GPA 
907466 ADD #2,.R4 NEXT QUEFER ADDRESS 
D¢ DEC R “COMPLETED 64 BUFFER CHECKS? 
x BNE 1 :CHECK NEXT VECTOR BUFFER LOCATION 





STORED BY THE INTERRUPT 


; THAT WAS 
;SERVICE ROUTINES. 


f J ARAAAAAAAAAAAAARAAAAARERERARERAEARERAEREREEERARERAREEEREEEEEEE 


sSTEST 6 TEST VECTOR ADDR UNIQUENESS IN ROTATING MODE FOR GRPS 1,2 


SRAREAARAERAAAARAEAAEREEEREEEEEAAERAERERAERERAERAREEERRERERERERES 





. 2 
WJ O1A6 TST PRI2 MACYT1 s ° Stead 10-AUG-81 11:00 PAGE 2-11 
EVDRDS.P T 



























1 10:52 TEST VECTOR ADDR UNIQUENESS IN ROTATING MODE FOR GRPS 1,2 
i —. com —. :BYTE COUNT = 4 
LEVELS = 0-7 
11 JSR SCLEAR ALL CSRS 
1 JSR :CLEAR VECTOR BUFFER AREA 
11 JSR ; 
11 JSR : TOR 
Hf 002456 mov 
: : 1 $0 MOV FER 
445 537 0111 JSR CTOR FOR GROUPS 1.2 
¢ X 70! MOV : RS POINTS TO COMMON HANDLER. ;;GPA 
BS ut wt MOV e : GROUP 1 CSR 
53 OC k MOV :GROUP 2 CSR 
1 ! sad 
56 Of : MOV ;STORE BUS ADDRESS 
57 Of . 002474 MOV COUNTER FOR LEVELS 
58 Of MOVB :ROTATING PRIORITY GROUP 1 
59 Of MOVB CLEAR MR BITS GP 
36 ! ‘ CLR * CLEAR INT. FLAG 
$61 OC | MTPS 
62 Of MOVB sSET ALL IRR BITS 
BS 007604 MOV LMDS7 = ARM THE CHIP 
564 06 ; MTPS 
5 Of Ist ;CHECK FOR NO INTERRUPTS 
67 OC ah Pe ILLEGAL INTERRUPT 
69 Of 1 "(MOVE sROTATING PRIORITY FOR GROUP 2 
. J : . 
N72 00764 ’ #S1RR. (RI) ;SET_ALL IRR BITS 
73 Of az : 7 re ,(R1) :LMDS7 = ARM THE CHIP 
I75 (Of INTFLG ;CHECK FOR NO INTERRUPTS 
57; 4 ILLEGAL INTERRUPT 
78 i 2$: INTFLG 
3B $C 1 1¥1.1(R0) —-;SET_INT, ENABLE EXPECT INTERRUPTS 
38 126 #4 ,$_ DAT SEXPECT & INTERRUP 
38 126 INTFLG,$BDDAT  ;SHOULD HA INTERRUPTS 
384 037 002126 DAT, SBDDAT 
TY. 1 
. 00014 100S: #CHPISR 





Sin (RO) 
inffies 


1 
SE xan 
7 101$: 


EVDRDB. PI sae a Shue=81 








a 
a 
a 


MACY11 SggC1065) 


Swe 


002126 


002124 
000186 
002124 


002186 


002126 
002126 
002126 


002126 


002126 


102$: 


4$: 


5$: 


10$: 


11$: 


: 





3 
10-AUG-81 11:00 PAGE 2-12 
TEST VECTOR ADDR UNIQUENESS IN ROTATING MODE FOR GRPS 1,2 














#PRO 

#4, $GDDAT 
INTFLG, SBDDAT 
T, SBDDAT 
102$ 

#CHPISR, (R1) 
#SIRR, (R1) 


iis, Baik) 
v0) 1230, 56004 
PSeDOAT , 
SGDDAT.SBDDA 
> 

#350, SGDDAT 


R1 SSDADR 
cai ) 2 .SBDDAT 


aed 


oe 


op 


re 


@ 
ome 
Se] 





ore RO) 
,SBDDAT 
DAT, SBDDAT 


DS SBDDAT 


pgnnr tae 


5 

RR, (RO) 
CRoy SanDAT 
SSDDAT.SBDDAT 


WMACR, (RO) 
(R2) $SDDAT 


SeDDAT. $800 
4 


gts Gy 
spo 


T, Piesbar 


pdiciticn ei 


6 
#MIAR, (R1) 


SHOULD HAVE FOUR INTERRUPTS 


Flat! TEST ERROR 
ote et _" ISR 


iSePA BOWE’ 8 LEVE 
NEXT LEVEL IN_ROTATION,GP2 


CLEAR IRR BITS,GROUP 2 
T GRDY DIR. »1/E, CHIP = 35X 






sCLEAR UNDEFINED BITS 


sCSRA_ REG ERROR 
SSTORE EXPECTED 
3CSRC 


5 SCLEAR UNDEFINED BITS 


sCSRC ERROR 
:CSRB ADDRESS 


sREAD ISR 


:1SR_ERROR,GP1 
;MODE BITS FOR IMR 








:IMR_ERROR,GP1 
;MODE BITS FOR IRR 


2 IRR_ERROR 
READ ACR 





sACR_ ERROR 
:CSRD ADDRESS 
READ ISR ,GP2 


:1SR ERROR,GP1 
SREAD IMR GP2 


SEQ 0035 


rr 


e 
10-AUG-81 11:00 PARE 2-13 





















































VDRDB ORV11J TST PRT2__ —- MACY11- 3061063) 
VORDS.PTT  » t0cauUG=81 10:52 Te TEST VECTOR ADDR UNIQUENESS IN ROTATING MODE FOR GRPS 1,2 SEQ 0036 
95 1 (R3) ,SBDDAT 
+ $s vit 803156 002126 SEDDAT. SBDDAT 
y 
3 5 IMR ERROR, GP2 
y 
3 0364 11 0 13$: #MIRR, (R1) READ IRR 
956 010370 1113: Ooet3¢ (RS) $DDAT 
57 910874 134 002126 SGDDAT, SBDDAT 
44 ‘et 4 001 4 3 ‘ : IRR ERROR, GP2 
960 010406 1 : 256 148: #MACR, (R1) READ ACR 
61 010412 1113! 009 6 (R3) , SBDDAT 
He 010616 ¢ it 126 002126 $600 
2 010696 10406 ACR_ERROR, GP2 
. 430 105010 2008: INIT GROUP 1 MODE BITS 
66 010432 105( 1 (R1) sINIT GROUP 2 MODE BITS 
x 04 34 4 101700 002124 #101700,$GDDAT [EXPECTED CSRA 
4. D645 Atti ? ! AD 3CSRA 
70 O1C | 95 002126 ;CLEAR UNDEFINED BITS 
th Nae f ' , = BEQ 
73 010470 1040 ERROR :CSRA REG ERROR 
4 0477 002124 201$: MoV STORE EXPECTED 
57% 01050. 1 MOV ; 
{ i | 7 002126 BIC [CLEAR UNDEFINED BITS 
7 10RD BEQ 
80 0105c¢ ERROR SCSRC ERROR 
81 01053 15$: MOV ; 
I: MOV ;VECTOR BUFFER 
78: 054C 002124 mov SSTART WITH FIRST VECTOR 300 
084 iC i 168: HOV VECTOR BUFFER ADDRESS 
86 01055¢ 002126 CMP 
: 1564 BEQ ;VECTORED PROPERLY 
566 aw a mane SVECTOR ADDR MEM ERROR 
eh a ar ee ig, 
060. 000400 cMP T,#400 ; YES, REACHED VECTOR 400 7? GPA 
04 BLO OCs > NOT YET, CONTINUE 32GPA 
D¢ 002124 MOV §#300,SGDDAT =: -YES, RESET EXPECTED TO 300 ::GPA 
06¢ 00S: DD «2G NEXT BUFFER ADDRESS ° 
606 DEC OiéR [COMPLETED 64 BUFFER CHECKS? 
6: BNE si [CHECK NEXT VECTOR BUFFER LOCATION 
44 THAT WAS STORED BY THE INTERRUPT 
100¢ ;SERVICE ROUTINES. 
10¢ 
10( sDON'T REPORT "END OF PASS’ UNTIL ALL SELECTED DRV11J°S HAVE BEEN TESTED. 
100% 010632 015701 002412 NXDEV: MOV DRCSA,R1 sINIT TO SETUP DRV11J ADDRESS 
1005 01 41 NXDEVI: CLC CLEAR CARRY FOR DEVICE MAP 





a 


ce ced eed ed ced eed eed eed 
> 


BOO OPO POO POPP LPP OPP BOO O PPP PP PPP PPP PPP PP GP Pe OP 
Ne Ne a a es ee ee es he es te a ee Ne ee ee et ee te te te ee ee ete ee te ee ee ee 








DRVI1J AAS IST ist. Pare MACY11 spgC1065) 10-AUG-81 11:00 * ne 2-14 
T TEST VECTOR ADDR UNI QUENE IN ROTATING MODE FOR GRPS 1,2 


= He sLOOK FOR NEXT DRVI1J 
SUB 
INC 
002434 BIT 
BEQ 
JMP 


sBR IF ALL TESTED 
-SSTTL END OF PASS ROUTINE 


ZNEXT DRV11J STARTS -20 FROM PAST CSR 

SUPDAT UNIT # 

71S UNIT SELECTED? 
;BR_IF NOT 
sTEST NEXT DRVI1J 

gs taabEeAeeteaaeeaaeterettesetnaeteeaetenaeeeaeneeaneeaeetectt 

* INCREMENT THE PASS NUMBER (SPASS) 

:#TYPE ‘END PASS #XXXXX"* (WHERE XXXXX IS A DECIMAL NUMBER) 

*]F THERES A MONITOR GO TO IT 

SelF THERE ISN'T JUMP TO START1 




























106 STSTNM 33ZERO THE TEST NUMBER 
970 STIMES THE NUMBER OF ITERATIONS 
107C SPAS S NUMBER 
1071C 002176 7100000, $PASS 
AS ~* 33;LOOP? 
1072 SDOAGN 2: YES 
a (PC)+,@(PC)+ *sRESTORE COUNTER 
1 ‘ ‘ 
073¢ SENDMG TYPE ‘END 
1073¢ $PASS,-(SP) * SAVE SPASS. 





FOR TYPEOUT 
GO ita ttn ASCII WITH SIGN 
L CHARACTER 





SENUL ziTY 
¢ an42.R 33 
0756 SDOAGN 33 

4; PC, (RO) 33 

% 4 7 

; 36 i 

5¢ 4 oe 
77 

goer 7 a(PC)+ 3: RETURN 
1 1 SRTNAD: .WORD START1 

377 377 SENULL: .BY :NULL CHARACTER STRING 


T 
015 042412 042116 SENDMG: .ASCIZ <1$>c4 o> /END PASS #/ 


a 








CVORDB .P1 


~ 


’ 
a ee ee eee ee 





ed ed cd 
ME UIN OOOO 


oooooooooooono 
ame ed wed coed cee ceed eee ceed eed chs eed ed ed 


ALAA UTA 
DURWI =O 


Oe Oe Oe oe ee ee ee RAR 


Sy 


a 3 
DRV11 TST PRT MACY11 306(1063) 10-AUG-81 11:00 PAGE 2-15 
i , ; MhuG. ; PROGRAM SUBROUTINES 


AUG-81 10:52 
-SBTTL PROGRAM SUBROUTINES 


© © EREAAAEEAAAEAAARAAAETEEAEAEAEAAAAAAAAAEAAAAAAHEAARARAEAAEAAERAEE 


“CLEAR ALL CONTROL/STATUS REGISTERS 


© © SEAEAAAAAEEAAAAAREAEAEAEEEAAAARAEAEAAAAREAERAEAAAAERERAEARAKEAEEEEEE 
SR: 


1014 circ RO,-(SP) : SAVE 

101 MIPS #PR7 “PSW = 

1 V @PVMA.VECVAL INIT VE ADDR MEM = 340 

1 #300, VECLOC ‘INIT VECTOR ADDR TO 300 

1 DRCSA “START DRESS 

1 SGDDAT “CLEAR EXPECT 

1 SBDDAT “CLEAR REC'D 

1 (RO) “CLEAR CSRA:CHIP RESET GROUP 1 
1 5 (RO) “CLEAR HIGH BYTE CSRB 

1 10(RO) “CLEAR CSRC:CHIP RESET GROUP 2 
1 15(RO) “CLEAR HIGH BYTE CSRD 
(SP)+,RO *RETURN R 





sCLEAR IRR REGISTERS,GROUP 1,GROUP 2 WITH CHIP RESET 
RIRR: MOV RO,-(SP) 














11074 CLRI 
1107 DRESA,RO sSTART OF CSR ADDRESS 
11 11(ROS *CSRC TO INPUT MODE 
111 #81T0,1(RO) *CSRA TO OUTPUT MODE 
111 RO) sCLEAR DBRA 
111 RO) “CHIP RESET OF GROUP1 
111 0(RO) “CHIP RESET OF GROUP 2 
111 SP)+,RO “RESTORE REGISTER 
0111 R5 sEXIT 
VECTOR MEMORY FOR VECTOR UNIQUENESS TEST 
GROUP 1 
GROUP 2 
11132 01 DRCSA,RO sSTART GROUP 1 
11136 01 DRCSB.RI 
11142 01 :TWO GROUPS 
11146 01 454 VECPAT “VECTOR START 300 
11154 01 456 VECVAL “START VECTOR LEVEL 0.BY4 
11 1 466 . LVLENT “LEVELS 0-7. 
1 1 CVAL, (ROD 
1 1 002470 Br T :DO FOUR BYTE COUNTS 
VECPAT, (R1) “WRITE VECTOR 
O INC CPAT ‘SETUP FOR NEXT VECTOR 
1 0 TST KXTFLAG * KXT11 2? ::GPA 
11 001407 BEQ : BR IF NOT :2GPA 
1 ' 002454 000100 CAP PAT .#100 : YES. REACED VECTOR 400 2? : GPA 
aE 0 000060 002454 MOV #60, VECPAT : YES, AGAIN ::GPA 
: WE'LL END UP WITH 74.00 33GPA 
>... REPLICATED 4 TIMES. GPA 
11 1000S: | 72GPA 
11 2 002470 DEC YCNT :DONE FOUR BYTE COUNTS? 
1 } “DO NEXT VECTOR 
11 7 002466 4$: DEC LVLCNT “DONE ALL LEVELS IN GROUP? 


SE@ 0036 


CVDRDB 
CVDRDB. 





DRV11J DIAG TST PRT2 
oH NO-AUG=81 10:52 


BH1ea6 Obfaa 





002456 


016754 
000204 


016754 
000204 
002460 


000001 


N 
MACY11 306(1063) 10-AUG-81 11:00 PAGE 2-16 
PROGRAM 







SUBROUT INES 
BEO 5$ 
INC VECVAL 
BR 
5$: DEC R2 
BEQ 6$ 
MOV DRCSC.RO 
MOV DRCSD.R1 
BR 1$ 
6$: RTS RS 
*ROUTINE TO STORE sVECTOR AREA 
STRVEC: MOV #300.RO 
MOV #INTO,RI 
MOV RZ 
1$: MOV R1.(RO)+ 
MOV #340, (RO)+ 
::GPA ADD JR 
ADD °R1 
an 
RTS - RS 
sROUTINE TO CLEAR VECTOR BUFFER 
CLRBF: MOV gne 
1$: (RO) + 


C 
DEC 





RTS 


sROUTINE TO STORE 0- 
Vee TOn TESTS TO 0-2 





TOBUF 





170514 


= 
mo 
o 


002210 RESines 


Co aega3e 





R1 
1 





ei 
#204,,R0 
t 

R 





TOR T TESTED TO 


f 
’ 





sEXIT 
300-674 WITH pores 


T SERVICE 





START AT VECT 


“FIRST SERVICE ROUTINE 


sSETUP_ FOR NEXT VECTOR STORAGE 


STORE 64 SERVICE ROUTINES 


;_ SETUP NEXT VETOR. 


sDONE WITH 64 VECTOR ROUTINES? 


sEXIT 


oe START 
3 FER INTO LOCS 0-202 
;F INISHED? 






* RETURN 
AREA INTO LOCATIONS 0-202 
TESTS 


VECTOR BUFFER START 


age INTO BUFFER AREA TO ALLOW 


BUFFER STAR 


t 
STORE 0-202 INTO BUFFER 
FINISHED? 






tee 176,SOFT SwWR 


1G TRAP FOR 204-1774 
ie 
; YES BRANCH 


GPA 


——— 


SEQ 00359 


B 4 
CVDRDB 11J DIAG TST PRT2 MACY11 306(1063) 10-AUG-81 11:00 PAGE 2-17 
CVDRDB VDRDB.P 1 NO-AUG=81 10:52 PROGRAM SUGROUTINES SEQ 0040 

















010000 170470 BIT 2, aSuR :CHECK TYPE OF TRAP RETURN 
BEQ SRESTORE ILLEGAL VECTOR ROUTINE 
1 909002 002452 ADD -VECLOC “RESTORE TRAP 
' MOV ve CLOC.(R3)*+ 3: 
1 1 CLR *RESTORE HALT 
4 000002 002452 ADD #2,VECLOC ; NEXT 
011752 10S: MOV #TRPALL , (R3)* : ILLEGAL TRAP ROUTINE 
1 11 011734 1$: MOV #TRPOUT, (R3)+ SRESTORE A APT SUB TRAP 
1 1 000340 11$: MOV #340, (R3) “RESTORE PSW SAVE 
1 002452 ADD #4, VECLOC SUPDATE FOR NEXT VECTOR 
4 11 5 2$: RTS RS SRETURN 
sROUTINE TO SET UP TRAP CATCHER 206-1774 IN STANDALONE MODE OR 
1 *A COMMON VECTOR ROUTINE SETUP UNDER 
1 ;VECTOR ROUTINE IS USED ONLY IN AN AP NYIRONMENT AND WILL STORE 
A COMMON SUBROU71NE IN VECTOR AREA ea 
1 RO.-(SP) 3: SAVE RO 
R1.-(SP) 
000001 002210 1.SENV sCHECK FOR APT 
APTVEC YES SET up TRAPS FOR APT 
900204 #204,RO START CA T 204 
1 170366 #Sui2.@SuR Test IF Stn Re SET 


ORE REGULAR TRAP 
CATCHER. .+2,HALT) IN LOCATIONS 
#TRPALL, (RO)+ ZNO, PLACE ILLEGAL VECTOR RET 
# (ROD + 






1175 11$: 





SROUTINES IN LOCATIONS 204-1774 
STORED ALL VECTORS? 


sRE AFTER VECTOR STORAGE 
7%. 


1$: SDRV11J CAN VECTOR 0-1 


sCHECK FOR VECTOR END 
RETURN IN STAND ALONE MODE 


1 SSTARTING VECTOR ADDRESS 
hasnt 3ILL — ROUT INE 









; DONE? 
;D0 NEXT VECTOR 









EXIT 
- INTE SERVICE ROUTINE USED TO VERIFY INTERRUPTS 204-1774 
' INTSRI: INTELG LG :COUNT INTERRUPT 
bast: LG,$BDDAT : COUNT 
R ¢-SBDDAT : ONE INTERRUPT 


em ee mee ee me me mh mk ce me em ee me ed ee ed ek a ce sk ak tk a kt eh a ek ed at ak et os Ss SS 2s ts 


meth eth coeds mr ean ee ceed cnet ened ce ened nd ch ec ret ee ee eed eed ed eh ed ed ed eed ee etd ed eed eed ed ed ed 
* 


$9900999 SIN ISIN VSS OLS LO OS, MAAN NNN E EF EE 
~So 
a cond mah emndt ark end) om cond cond ed eed ord ees wee eh a) weet ed eds os etd awd ad aod owed aed 
eumdl vend coat oma sec een cee ee ered eed oe enn ard ed eh od ed ee eed) ed ed eed ed aed eed eed eed ceed ce od eed ed 
esses pacecsecss 
™~ rc . 
=NNNN 
See se : 
eh 
ab ~J 
> 
sss 
anced) cad coms 
rm md 
ge #3 
ee. 
mgccz weszgece eer ocezzges = Z— 
© “ a] oe 
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CVDRDB. SEQ 0041 
1 1674 ERROR 13 :MULTIPLE INTERRUPTS RECEIVED 
+ ore bp6oo3 1$: RTI ‘RETURN FROM INT 
1 s INTERRUPT SERVICE ROUTINE USED TO VERIFY INTERRUPTS 204-1 77% 
“FOR A BYTE COUNT OF 1 TO 4 VECTORS IN VECTOR ADDR MEMOR 
11 "hens 4: INC INTFL :COUNT INTERRUPT 
11 MOV BYNUM.SGDDAT  :STORE EXPECTED 
1 INTFLG,$BDDAT :SAVE INT. COUNT 
1 ScDDAT T.SBDDAT :INTERRUPTS SHOULD NOT EXCEED BYTE COUNT 
1 1 ERROR 13 sMULTIPLE INTERRUPTS RECEIVED 
“MORE INTERRUPTS THAN BYTE COUNT 
011732 1$: RTI “RETURN FROM INT. 
1 ;COMMON ILLEGAL VECTOR RETURN ROUTINE FOR apr MODE - 
1 11 zoe 002120 TRPOUT: MOV (SP) SGDADR ADDRESS TEST 
11 7 374 JSR R5, FRMBUF = RETURN POCATIONS 202 
11 14 ERROR 14 SILLEGAL VECTOR ADDR MEM ERROR 
1 46 HALT ‘CANNOT CONTINUE 
1 HALT ‘CANNOT CONTINUE 
: COMMON N ILLEGAL VECTOR RETURN ROUTINE FOR VECTOR AREA 
iRPALL: MOV (SP) ,SGDADR sSAVE PC OF TEST 
ERROR 14 *ILLEGAL VECTOR ADDR MEM ERROR 
RTI s RETURN 


RROR SUBROUTINE FOR 0-202 







RESTORE VECTOR JUST TESTED TO E 
RES200: #1,SENV 
































ee ee Le LL ee ee ee ee ee ee eee ee 





1 
002210 : CMP sCHECK FOR APT 
BEG sYES 4H 
OV #TRP200, (R3)+ Z ERROR TRAP SUB. FOR 0-200 
1g BR RETURN 
1 1$ MOV #TRPOUT, (R3)+ SRESTORE pr SUB TRAP 
0 MOV #340, (R3) sRESTORE PSW SAVE 
002452 2S: ADD #4, VECLOC ; UPDATE FOR NEXT VECTOR 
RTS sRETURN 
sROUTINE TO SET UP TRAP SUBROUTINE 0-200 IN STANDALONE MODE OR 
"A COMMON ERROR VECTOR ROUTINE SETUP UNDER APT. 
CAT200: MOV RO,-(SP) sSAVE RO 
; 002460 MOV ast SWRSAV *SAVE LOCATION 176,SOFT SWR 
21 CMP # SENV : CHECK FOR APT 
BEQ api SET UP TRAPS FOR APT 
CLR RO ST T CATCHER SUB AT 0 
1$: MOV #TRP200, (RO) + 3S TORE VECTOR TRAP SUBROUTINE 
MOV #340, (RO)+ “PS 
; CMP #204,RO SFINISHED 0-202 
BNE 1 
BR END200 TURN IN STAND ALONE MODE 
APT200: CLR ‘START AT VECTOR 0 
1$: MOV aTRPOUT, (RO)+ VE OR ERROR ROUT INE 
MOV rye (RO) <eey REG 
CMP * DONE? 








CveRDS Daytts G1A ae oe ae 


CVDRDB .P1 
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qwozw: RH Hveigo, 00 mT wecTo 
” MOV #INTSR3,(R3)  :STORE VECTOR ROUTINE 
#360,2(R3) :STORE PSW 





MOV 
RTS 


FY INTERRUPTS 0-200,BYTE COUNT 0-3 


TERRUPT SERVICE 
FOR Ou VECTOR ADDRESS MEMORY. 
INTERRUPT 


iF OR AR YTE Dae * 











sSAVE_ INT. COUNT 
ZINTERRUPTS SHOULD NOT EXCEED BYTE COUNT 


sRESTORE 0-202 BEFORE ERROR 
SMULTIPLE INTERRUPTS RECEIVED 
3MORE INTERRUPTS THAN BYTE COUNT 
JSR RS.CAT200 SRESTORE VECTOR SUBROUTINES 

1$: RTI ;RETURN FROM INT. 


-C ILLEGAL VECTOR ERROR RETURN ROUTINE FOR 0-200 
iRPoOOe MOV (SP) , SGDADR : SAVE PC OF TEST 


sRETURN LOC 
s ILLEGAL VECTOR ADDR MEM ERROR 


YNUM, SGDDAT 
NTFLG, SBDDAT 
DAT. SBDDAT 





nS. oFRMBUF 






J 
ERROR 






R5 .F 
4 























RROR 1 
oor R5,CAT200 “RESTORE VECTOR SUBROUTINES FOR PROCEED 
RTI *RETURN 
sVECTOR SERVICE , VECTOR UNIQUENESS TEST 
elec: - +, (R4)+ *STORE VALUE IN BUFFER ;;GPA 
SETVEC: MOV VECTOR NUMBER IN BUFFER ::GPA 
TST SRESTORE STACK FOR RTI 
NC ‘COUNT INTERRUPT 
264 EXPECTED INTERRUPTS? 
*ERROR ,MORE THAN 64 INTERRUPTS 
1$: “RETURN FOR NEXT INTERRUPT 
31N T ee ARE STORED FROM 300-674 
: ; RS NTs TO DURING ESTs. 5 ono AND CALLS GPA 
or ef itt 10 Or ings! TO CONSERVE 3 GPA 
inf TA, PRoenad 5 GPA 





306 1 CKED veur 10 ALL INTERRUPTS. 
wart GNIQUENESS TEST, INT. SERV RTN ::GPA 


INT2: 4$h PC.(R5) ;VECTOR UNIQUENESS icST, INT. SERV RIN ;;GPA 
INTS: 458 PC,(R5) ; VECTOR UNIQUENESS TEST. INT. SERV RIN ;;GPA 
INT4: 4sh PC,(R5) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
INTS: {38 PC,(R5) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
INT6: 13h PC,(RS) ; VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 





SEQ 0042 





E OA SEQ 0043 
1 11:00 PAGE 2-20 
MACYTT 306(1063) _ 10-AUG=81 
VORDB DRVI1J DIAG TST PRIZ PROGRAM SUBROUT INE _— 
1396 01 “eta, wen SR «PC, (RS) ; VECTOR UNIQUENESS TEST, INT. SERV RTN — 
195 aes an PC,(RS) : VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
185 ne Bh a, (RS) :VECTOR UNIQUENESS TEST, INT. SERV RIN ;:GPA 
7 7, ' 4! INT11: 13h PC, @ SERV RTN . “GPA 
1 y, "b's 54 (RS) -VECTOR UNIQUENESS TEST, INT. ee 
1 7,7 YOC INT12: 338 PC, 6 ERV RIN : GPA 
1 t, A : ys 1 (RS) “VECTOR UNIQUENESS TEST, INT. s ee 
1 7; ' HK ! INT13: 43h PC, ¢ ERV RIN GPA 
1 Os . ys (RS) “VECTOR UNIQUENESS TEST, INT. & ee 
7 nC + JOC INTI4: J PC, € ERV RIN ::GPA 
yore $6 80871 115: JSR PC,(RS) :VECTOR UNIQUENESS TEST, INT. S $3 
13 Sane ; a VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
131 34 000374 INTIG: JSR PC CRS); a. ane 
rt 26 900400 ; (RS) ;VECTOR UNIQUENESS TEST, INT. SERV .é 
. 1 7%, I! 4 INT17: JSR PC, ° ERV RTN -=GPA 
/ 8004 sen (RS) ;VECTOR UNIQUENESS TEST, INT. S 33 
1 9 +4, INT18: JSR PC, . SERV RIN ::GPA 
1314 8 00068 ISR (RS) ;VECTOR UNIQUENESS TEST, INT. 33 
131 ' D0 1 INT19: JSR PC, SERV RIN ::GPA 
et 2 6 rh? 120: JSR PC,<RS) :VECTOR UNIQUENESS TEST, INT. $3 
13¢ § 004 2 ou ise PC, CRS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
if ts n 4 f nn SSR PC, (RS) :VECTOR UNIQUENESS TEST, INT. SERV RTN ::GPA 
1358 ete nos, 480 (RS) :VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
f] ¥. i +4, INT23 : J PC, ‘i SERV RTN » °GPA 
1% 74 00 ; (RS) :VECTOR UNIQUENESS TEST, INT. 33 
25 eo. ORK INT24: JSR PC, , SERV RIN ::GPA 
‘ b 90% Sgr (R5) sVECTOR UNIQUENESS TEST, INT. 33 
3 cS Rhy INT25: JSR = PC, (RS) SERV RIN ::GPA 
lex 0% 006 NT26: JSR PC, (RS) :VECTOR UNIQUENESS TEST, INT. 33 
133 98 Be i uror, 432 RS) :VECTOR UNIQUENESS TEST, INT. SERV RTN ;;:GPA 
J 35 , AY 2 INT2?7: 138 PC. ¢ , SERV RIN ::GPA 
ite 00¢ ure: Jan PC.(R5S) ;VECTOR UNIQUENESS TEST, INT. 33 
135 Ne arog, 46 (RS) VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
1 3 t ‘++. a INT29: JSR PC, ” SERV RTN ” *GPA 
38 2 004 466 SVECTOR UNIQUENESS TEST, INT. $3 
, 41 i, 5 0€ : INT3O: J PC, (RS) e RIN GPA 
385 Baan , ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;; 
: 43 5 ORAL SOE INT31: J PC,(R5) ; ue ote 
rf rt (RS) VECTOR UNIQUENESS TEST, INT. SERV 33 
1 504 a a T. SERV RIN ::GPA 
1344 : ore | INT33: J9R PC, (RS) ;VECTOR UNIQUENESS TEST, INT. 
114 ' oe RIN :: 
‘i 06 ; QUENESS TEST, INT. SERV 
1348 4 4 sae os INT34: JSR PC. (RS): VECTOR UNI 
tee 0 00051 10 
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SEQ 0044 
>> GPA 
RIN 33 
. SERV + =GPA 
$ TEST. INT SERV RIN :: . 
= Gee TEST, RV RTN 
) ;VECT NESS INT. SE 3 3GPA 
135; sr PC, (RS) proc ee TEST. INT. oon ten nn 
10:52 In sR C.(RS) VEC UNIQUENES TEST, INT. S RV RIN ::6P 
. INT36 P yon VECTOR IQUENESS ST, INT. SE RIN ::GPA 
4 Dt : SR (RS) UNIQUE EST, 1 RTN 
1 4 +t 4F INT38: $ PC. ; VECTOR NESS T T. SERV ;;GPA 
} tf 39: ish PC,(R5) ; OR UNIQUE TEST, IN ERV RIN ;; 
t $ DOC aes JSR R5) ;VECT TQUENESS T, INT. S RIN ;;3GPA 
} : 4, 161: rr PC,(R5S) ; CTOR UNIQUE SS TEST. INT. SERV RIN :: . 
12¢ d i aaa $35 PC. «5? yrs a ictealesal SERV RTN oe 
136: 1 00034, oe 33 PC.{RS) iV TOR ee TEST, INT. SERV RTN “on 
1368 0 900544 ee JSR C.(R5) ;VEC UNI QUENES EST, INT. VRTN 326P 
\ + D0¢ 38 INT44: = P wens s VECTOR IQUENESS T T. INT. SER RIN ::GPA 
' S ° 6 
} 66 le 004 54 INT45: 564 oi sVECTOR UN NESS TES NT. SERV + 3GPA 
, : 1046715 , ish C.(R5) UNIQUE EST, I V RTN 
1368 000561 — fe ) sVECTOR NESS 1 INT. SER + GPA 
i 7¢ > 00. Inta?: PC. «RS CTOR UNIQUE SS TEST. SERV RIN GPA 
137; tak 148: JSR a 7 Coe TEST, INT. oe 8 A 
13 1) 00¢ : ” : $8R (R5) VEC UNIQUENESS ST, INT. $ RTM 35@ 
7 +4 ° (R35) ; UN ST, R ri 
ne Yi 50: 0 PC, TE RV . 
13 8 806 a Se ae ees o igeseedgaan ae 
1378 42 004 ars PC. ( ) ;VECTOR UN QUENESS TEST. INT. SERV R + GPA 
10 44 0006 7 J (RS) UNI EST, INT. RIN i: 
138 i 90061 a 3 ‘ (RS) pou pr ENSONE oe, om a RIN aot 
138 ; 0061 ” : 430 (R5) ;VECT UNIQUENESS EST. INT. SE RIN 5 5GP. 
1 Y. M0620 INTS4: : PC. 5) ; VECTOR IQUENESS T INT. SERV N ::GPA 
13BP 01986¢ 2047 INTs: 1% hes VECTOR UN NESS TEST, SERV AT : GPA 
138% +4 56: ion C.(R5S) ; UNIQUE TEST, INT. RV RIN 3; 
j AC nOOe INT 64 PC. ; VECTOR NESS T. SE ; GPA 
138 006; : JSR (RS) ; UNIQUE ST, IN RIN ; 
i $4) 20% / INTS?7: 644 PC, “VECTOR NESS TE T. SERV > sGPA 
1 4 yA 7 J (RS) 6 UNI QUE ST, IN e RIN ee 
1308 100640 INTS8: oR OP; 5) :VECTOR IQUENESS TE INT. SERV 
; i vN * ’ e : 
Bs pisem eh mse: 3s oe au siealeesi ne 
c a0 Mae INT6O: _— sVECTOR UN 
s 61 0047) NT61: JSR PC.(R5) ; 
. 
' : y ‘hat : : J 0 
' tp ++ S6( INT62 & 
' 6 7 004 
+: JIVVOC 
Se 006713 
ar 
1 . 
1 
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013632 eta INT63: is? PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 





CVDRDB 
CVDRDB. 





— ay 


.SBTTL PATTERNS FOR REGISTER R/W 
: PATTERNS USED FOR LOADING/READING REGISTERS 






NTERRUPT SERVICE REGISTER 
INTERRUPT REQUEST REGISTER 
INTERRUPT MASK REGISTER 








EDCHPS: 


at tt 
PELL EES HHL LOLE SE 
RRVVRUNAN Sooo oS 
par ee er Dar Saree eer er eer) 
“J 
SNS 


H 4 
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—s 


exch cmd eth ed need cme con aed wed eed weet ed ed ed) ceed ee ced ed eed cet ed ed ceed ed od ee) eed ed oh eed oo? 
: . +49 0. : : IN > *. 


_—"* 


ee cee eed eee ee ce ee ced ee cee ce ee me ce ed ce cee ce ce ced eed ee eee wee ee we ee ee ce ed ed ed ce ed ed ed ed we ed ed ed gg eed td od 2 2s wd od = ot fL) 


et et Set Cet Cet et et Ce OE et OP ea A Ce ed el el a Me ed el a ee el el el el ee a ee PD al el el rl elt ral el a el 


as eed eth cae 





SBITL SYSMAC ROUTINES | 
_SBTTL TYPE ROUTINE | 











: ROUTINE TO TYPE ASCIZ at MESSAGE MUST TERMINA fF 

sTHE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER. All eae 

; “NOTE SHULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 












3sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
























*0R 
sn TYPE 
38 MESADR 
3 
$TYPE: TSTB  $TPFLG ::1S THERE A TERMINAL? 
BPL 1$ BR 
HALT 3 RE IF NO TERMINAL 
BR 3$ $3 
1$: MOV RO ~(SP) 33 
MOV (SP) ,RO 33 
ose #APTENV ,.SENV 33 
BITB §§ #APTSPOOL.SENVM :: 
BEQ 33 
MOV 1$ 38 
JSR PC. Ty3 33 
61$: WORD 33 
62$: g1T8 #APTCSUP,SENVM 3; 
2: MOVB (RO)+,-(SP) =; ER TO BE TYPED ONTO STACK 
BNE 4$ 33 ISN'T THE TERMINATOR 
TST (SP)+ 33 NATOR POP IT OFF THE STACK 
: MOV ae RO $3 
: i” F (SP) 32 
4$: CHP WHT, <SP) 3: 
CAPS #CRLF . (SP) BRANCH IF NOT <CRLF> 
TST (SP)+ ::POP <CR><LF> EQUIV 
TYPE *: TYPE A CR AND LF 
CLRB  § S$CHARCNT 3 CLEAR AR CHARACTER QUNT 
BR 3§ 33 
5$: JSR PC. STYPEC 33 I CHARACTER 
6S: CAPS ILLC, (SP)+ 33 ge OR FIL ER CHARS. ? 
MOV gene 3: # OF Fi Lene CHARS. "NEEDED 
7$: DECB 2 s«A:( SP) 33 
BLT 6$ 33 


_—- 
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(1) 013072 JSR PC, STYPEC 2:60 TYPE A NULL 
(1) 01 1321 DECB SCHARCNT [:D0 NOT COUNT AS A COUNT 
038 1 BR 3 ;LO0P 
(1) sHORIZONTAL TAB PROCESSOR 
a) : a .(SP) :;REPLACE TAB WITH SPACE 
(1) : »STYPEC =: TYPE A SPACE 
(1) 013210 #7. SCHARCNT BRANCH IF NOT AT 
4} :;TAB STOP 
(1) (SP)+ *:POP SPACE OFF STACK 
(1) neni 2$ *:GET NEXT CHARACTER 
(1) 105777 167046 : asTKs = CHAR IN. kYBD BUFFER? mut 001 
a) 16704 @STKB,-(SP) _3;GET CHAR ;MJD001 
(1) 1 #177600,(SP) § 3;STRIP EXTRANEOUS BITS ;MJD001 
(1) 7 #SXOFF , (SP) 7:WAS CHAR XOFF :MJ0001 
; 0 1018: 102$ ::BR IF NOT sue RST 
(1) 105777 167022 asTks ;:WAIT FOR CHAR MJ0001 
(1) 100375 101$ MJD001 
1) 1 16708 a$TKB, (SP) :2GET CHAR MJD001 
(1) #177600, (SP) § ::STRIP_IT :MJD001 
(1) #SKON. (SP) 3zWAS IT XON? ;MJ0001 
ini 101$ [:BR IF NOT Haut 001 
1) 005726 a (SP)+ 33FIX STACK mut 4. 
i 167000 ; TPS s:WAIT UNTIL PRINTER IS READY as 
(1) i 900002 1 772 SSP) asTPB ssLOAD CHAR TO BE TYPED INTO DATA REG. 
1) 06000 #cR.2¢SP) 31S CHARACTER A CARRIAGE RETURN? 
(1) 013210 CHARCNT : 3 VES==CLEAR CHARACTER COUNT 
a) 000012 000002 1S: #LF,2(SP) 7:3$ CHARACTER A LINE FEED? 

1 STYPEX 3: HIF Y 
) I {PC)s 33 THE CHARACTER 

} SCHARCNT: - WORD * SCHARACTER COUNT STORAGE 
) TYPEX: RT PC 

14 .SBTTL APT COMMUNICATIONS ROUTINE 

: ) © SS RAAAAAAEAAARAAAAAAAEAAEEAESARARAARARAARAARAARERRAAAARAAAREEKREKAKE 
(1) 01 000001 013460 SATYI: #1, SFFLG 33TO REPORT FATAL ERROR 
1 100001 01 TY3: #1 SAFLG *:T0 TYPE A MES 
000001 013460 SATY<: #1,$FFLG :3TO ONLY REPORT FATAL ERROR 
(3) j RO.~(SP) :;PUSH RO ON STACK 
(3) R1.~(SP) 33 ON STACK 
(1) 013456 , LG 33 TYPE A MESSAGE? 
i) 000001 002210 #APTENV.SENV 33 NG 
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SEQ 0048 





1 10:52 APT COMMUNICATIONS ROUTINE 













000100 002211 BIT #APTSPOOL . SENVM sce SPOOL MESSAGES? 
BEQ 3$ 32 1F NOT: 
MOV 3s 
000004 ADD 
1$: TST 3 
BNE 3 
002204 MOV 3 
23: TST8 ; 
1 002204 


0660¢ 002170 


7 
12 


002210 
002170 


it 72 


. «{ 
gecSs*ikns 






; s SHOULD REPORT FATAL ERROR? 





SS 


“e 
~4 
i ine 


a 


paras 
a 


STACK INTO RO 


ee comch eee conch ceed eed ce ee eed eh ee eed ee ed ed eet ed ond oe 2d 





SCLEAR MESSAGE FLA 
[POP STACK INTO R1 


TCSUP=04 
~SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


SRRRRERAREAAAAEAAAREEEAEEAEEAAAAAAAAAAAEAAAAAEAAEREREAER EEE EEE 

THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL (ASCII) NUMBER AND TYPE IT. 

: sSTYPOS~-~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


MOV NUM, -(SP) NUMBER TO BE TYPED 
TYPOS fata FOR TYPEOUT 
BYTE N FOR NUMBER OF DIGITS TO TYPE 


BYTE & 
331=TYPE LEADING ZEROS 
;30=SUPPRESS LEADING ZEROS 











seseeees 
4F 
may 


L 
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CVORDB .P1 NOcAUG=81 10:5 BINARY TO OCTAL (ASCII) “AND TYPE _ SEQ 0049 


{«$TVPOW-—=—ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


:*CALL: 

it MOV —s NUM, = (SP) NUMBER TO : 
is TYPON CALL FOR TYPEOUT. 

; #$TYPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

ie NUM, - (SP) s NUMBER TO BE TY 

: TYPOC CALL FOR TYPEOUT. 





@(SP) ,-(SP) eS THE MODE 
sLOAD ZERO FILL SWITCH 






















(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
3 
(1) 
tg 

vy STYPOS: MOV 
1} 18 sa 013705 ROVE §—1(SP). “SOF ILL 

” MOVE SOMODE+1 ;;NUMBER OF DIGIT 
a 1350 e ADD ZADJUST RETURN ADDRESS 
o 1 013705 $TYPOC: MOVB 

( 33SET THE ZERO FILL SWITCH 
a} : f 200005 013707 —— seSET FOR SIXC6) DIGITS. 
(1) 01353¢ * MOV 33SET THE ITERATION COUNT 
(1) 01353¢ dl 335A 
(1) 013534 MOV 33SAVE R4 
(1) 013536 013707 MOVB saave 
(1) OF ie fs SEGET THE NUMBER OF DIGITS TO TYPE 
1) i sa ee Se AT eo FOR MAX. ALLOWED 
a) 1356( 12 = 33GET THE ZERO FILL SWITCH 
(1) 01356 ae 33 HE INPUT NUMBER 
(1) 566 1$: ROL 33CLEAR THE OUTPUT WORD 
(1) 7 - § ;3ROTATE MSB INTO ‘C’° 
(1) 1 23s: ROL se dO ASB 
(1) 01 '_ = :3FORM THIS DIGIT 
(1) 01 ROL 
(1) 01360e se: © 
( Blseos 105357 013706 "Bete if 
63 ie 177770 BIC + 
(1) 013620 BNE $3 
( ) 1 62 TST se 
(1) 0136s ss. Te 33 
1) O136%e : INC 4 
1) O136% -_ a + 
(1) i 6 36 . ss 
(1) O136h¢ 1 rr 
(1) 0136s , ve: $3 
a) 136! oe 
(1) 01365¢ e3 
(1) 01366 ar 3 
1) Sees O1S6e 6s: OV ii 
(1) 013666 012603 sad 33 
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BINARY TO OCTAL (ASCII) AND TYPE SEQ 0050 

SP) 


::SET THE STACK FOR RETURNING 
7 RETURN 

0 zz STORAGE FOR ASCII DIGIT 

*: TERMINATOR FOR ie 4 ROUTINE 


z 







NT: 
ILL: ILL SWITCH 
SOMODE: .WORD 0 = *NUMBER OF DIGITS TO TYPE 

“SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

£ ARARAAAAAEAEEAEAAAAEEREREEERARARAREERERERRAEERARAREERARAAERRREREE 
**THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
*#SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
“NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 


**BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
: *REPLACED WITH SPACES. 





























aS 


3* NUM ,-(SP) ::PUT THE BINARY NUMBER ON THE STACK 
3* TYPDS ::G0 TO THE ROUTINE 
STYPDS: 
RO,-(SP) 3:3PUSH 
R1,~(SP) PUSH 
a6°~te5s 2 2PUSH 
ag SP) : :PUSH 
R5,-(SP) 3: PUSH 
8 200 ,-(SP) s3SET 
(SP) RS 33GET 
1 338R I 
R Sc MAKE BINARY NUMBER POS. 
#*=,1(SP) 2 PAKE I NUMBER " 
1$: 73ZERO CONSTANTS INDEX 
K,R3 ::SETUP THE OUTPUT POINTER 
#° (RS) 7:SET THE FIRST CHARACTER TO A BLANK 
23: ye ::CLEAR THE BCD NUMBER 
a RI ::GET THE CONSTANT 
3$: R1,R ::FORM THIS BCD DIGIT 
4$ ::BR IF DONE 
Re :: INCREASE THE BCD DIGIT BY 1 
4$: R1.R5 3 3ADD 
R2 3: CHECK 
5$ 3 FALL 
(SP) s:STILl 
5 Sp) Sem? 
aa” ::BR IF 
1(SP) .-1(R3) 72 YES-- 
: #°O.R : :MAKE 
: #° GR 3 sMAKE 
R2,(R35)+ 2 sPUT 
(RO) + 33 
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VORDB .P1 1 10:52 


8 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0051 































(1) 01 aR 6$ 2:60 CHANGE TO ASCII 
(1) 01 8$: TSTB —s-_« (SP)+ *:WAS THE LSD THE FIRST NON-ZERO? 
(1) 1 BPL 9$ 7:BR IF NO 
(1) 1 177777 177776 MOVB  -1(SP),-2(R3) ::YES=-SET THE SIGN FOR TYPING 
(1) (01 1 9$: CLRB ) 3: TERMINAT 
(3) 01 MOV (SP)+,R5 33 
(3) O17 1 MOV (SP)+,R3 $3 
(3) 01 1 MOV (SP)+, 33 
(3) 1 1 MOV (SP)+-R 33 
(3) 01 1 MOV (SP)+, 33 
(i) (01 1 0141 TYPE k 33NOW TYPE THE NUMBER 
(1) 01 0 2 000004 MOV 2(SP) ,4(SP) *:ADJUST THE STACK 
(1) 0161 1 MOV (SP)+, (SP) 
(1) 01611 RTI : RETURN TO USER 
(1) 01611 SDTBL: 10000. 
(1) 0161 17 1000. 
1) 141 144 100. 
(1) 0141 1 10. 
‘ > 0141 SDBLK: .BLKW 
%4 SBTTL 
( ) SRRAAAAERAAAARAAREEEEEREEEREREERAERARAREERERARERERRRERERRERERERERE 
(1) CS THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(1) Z*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
(1) “#AND GO TO SWRCK ON ERROR 
(1) *®THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(1) * #SW15=1 HALT ON ERROR 
(1) * #SW13=1 INHIBIT ERROR TYPEOUTS 
(1 + #SWO9=1 LOOP ON ERROR 
1) : ERROR N : sERROR=EMT AND N=ERROR ITEM NUMBER 
(1) 0141 SERROR: 
(1) 0146134 104407 s:TEST FOR CHANGE IN SOFT-SwWR 
(2) 014136 1 g CKSWR :G0 LOOK F 
(1) 0146140 1 002103 7$ INCB RFLG 3 RROR FLAG 
(1) 0141 1 BEO 33 ET THE FLAG GO TO ZERO 
(1) letse 3 19 165766 nov sear @DISPLAY 330 NUMBER AND ERROR FLAG 
(1) 16 ¢ 11 i nov ee :GE SS OF ERROR INSTRUCTION 
(1) 14 0031) MOVB RRPC $1TER ssSTRIP AND SAVE THE ERROR ITEM CODE 
(1) 16 0 65732 BIT #81113,8SUR *:SKIP TYPEOUT IF SET 
1) BNE ::SKIP TYPEOUTS 
1) 14 014310 JSR PC 208 *:60 TO USER ERROR ROUTINE 
CH) 14 1 00216 _ TYPE  ,S$CRLF 
} 1 4 000001 002210 Cpe #APTENV, SENV : s RUNNING IN : Pr MODE _ 
(1) 16 0031 014242 MOVB Sieve 21 =:SET ITEM NUMBER AS ERROR NUMBER 
(1) ? a JSR PC, SATY **REPORT FATAL ERROR TO APT 
(1) “BYTE 
(1) 2$: BR 2$ : APT ERROR LOOP 
(1) 16 099777 165666 $: TST asuR * SHALT 
(1) BPL 3:SKIP 
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ERROR HANDLER ROUTINE 





SEQ 0052 




















(1) 016 ERROR! 
(1) 01 CHANGE IN SOF T=SuR 
Hf 1 001000 165652 3$: #B1T09,aSwR SWITCH SET? 
( 4 11 SLPERR, (SP) FOR LOOPING 
a} 14 sa he 4$: ‘ SCAPE 33 ESCAPE ADDRESS 
(1) 4 002162 i SESCAPE.(SP) § ::FUDGE RETURN ADDRESS FOR ESCAPE 
14 000002 ; RTI + RETURN 
18 , : EEEAAAAEAEAEEAAAAAAEAAAEAAEEEAAAAAEAARAEAAEEAAAKAAEARAAREAAAEAAAAAERE 
16 TYPE ERROR 
°60 UPDATE SOFTWARE SWR IF ‘CNTRL/G' 
y SOCK, MOVE STSTNALISINUM <SET UP TEST 2 NER 
1 6 1 ? 902192 002632 $URCK: MOVB TSTNA TSTNUM ;SET UP TEST # ON ER 
1 43 JSR SERRTYP : ERROR 
144 4 ? CKSWR *60 LOOK FOR SWR CHANGE 
1 RTS PC ‘RETURN TO ERROR HANDLER 
1 .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 





H 
+ *ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’’ (SERRTB), 
[AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 





SERRTYP: 
14 1 002165 TYPE 
MOV 





CRLF 32""CARRIAGE RETURN’ & ‘LINE FEED" 
»~(SP) : SAVE RO 
> sPICKUP THE ITEM INDEX 


F ITEM NUMBER IS ZE 
THE E 





CLR 
BISB ITEMB RO 
ae is 












RO, JUST 
RROR 
SERRPC,-(SP) 


013746 002116 


TAL ASCIICALL DIGITS) 





NDEX SO THAT IT 1 


I 
F ERROR TABL 





RESSAGE' POINTER 


Lt 







_ onl 





i os 


¢ TTT iititiitiiiiiiiiisiiiiitiiiiiiiiiii irr 
SRTHIS ROUTINE USES THE ““ITEM CONTROL BYTE’* (SITEMB) TO DETERMINE WHIC 
( 

| RETURN’ & “LINE FEED*’ 
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PI AUG-81 10 MESSAGE TYPEOUT ROUTINE SEQ 0053 
1 73: 
1444 oF MOV @(RO)+,-(SP)  ::SAVE @(RO)+ FOR TYPEOUT 
1 TYPOC 7:60 TYPE=-OCTAL ASCIIC(ALL DIGITS) | 
1 TST (RO) [21S THERE ANOTHER NUMBER? 
1 1 BEQ 6$ 7:BR IF NO 
014456 TYPE 8$ *:TYPE TWO(2) SPACES | 
44 1 BR ?$ =: LOOP 
144 8$: “ASCIZ / of *:TWO(2) SPACES 
.SBTTL SCOPE HANDLER ROUTINE 
s STMIe ROMITIME COMTRGA © THE LOOPING OF SUATESTS. IT WILL INCREMENT 
;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
**AND LOAD THE TEST NURGER (ST STN ) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
**AND LO“D THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
:sTHE Se Sei TCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
Pet tl Ft INHIBIT ITERATIONS 
+ #SWO9=1 LOOP 
;#Su0B=1 LOOP ON TEST IN SWR<7:0> 
ie SCOPE ::SCOPE=IOT 
SSCOPE: 
144 104407 CKSWR ;3TEST FOR CHANGE IN SOFT~SWR 
040000 165446 1$: #B1T14,aSWR ‘LOOP ON PRESENT TEST? 
Ve 114 BNE SOVER YES IF su W14=1 
sMHAANSTART OF CODE FOR THE XOR tivtendee’ 
014474 000416 $XTSTR: BR 6$ 231F RUNNING HE XOR; TESTER R CHANGE 
THIS INSTRUCTION ‘WOR 











14476 0137 : -(SP) :ESAVE THE CONTENTS OF ATHE ERROR VECTOR 
14 1 000004 RR PERRVEC ::SET FOR TIMEOUT 

1? 77 2: ON XOR 

16 (SP)+,@MERRVEC 3; ESTORE THE ERROR VECTOR 

16 5$: (SP)+, (SP)+ *=CLEAR THE STACK AFTER A TIME OUT 

4 000004 (SP)+-a#ERRVEC ::RESTORE THE ERROR VECT 

14 3 ON THE PRESENT TEST 

14 63: :AAMA, CODE FOR THE XOR T 2 

16 000400 165400 1708, asue ;sLOOP ON SPEC. TEST? 

16 165372 002102 aSun, STSTHA 3 IGHT TEST?  SWR<7:0> 

é 002103 2$: RFLG $3 RROR OCCURRED? 

4 002115 002103 RMAX, SERFLG i ORS FOR THIS TEST OCCURRED? 
16 001000 165342 #21709 ,@SUR $30 4 N ERROR? 

. 002110 002106 7S: SLPERR.SLPADR 36m LOOP ADDRESS TO LAST SCOPE 

14é 008103 4$: SERFLG :;ZERO THE ERROR FLAG 

1 STIMES ** CLEAR THE NUMBER OF ITERATIONS TO MAKE 
1 1 ESCAPE TO THE NEXT TEST 

1 004000 165310 3$: #B81T11,aSUR *S INHIBIT ITERATIONS? 

14é 1$ ::BR IF YES 
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1 10:52 OPE HANDLER ROUTI."€ SEQ 0054 
1 002176 TST SPASS ::1F FIRST PASS 
1 BEQ 1$ 33 INHIBIT 
1 INC SICNT =: INCREMENT ITERA 
002104 cH STIMES.SICNT ::CHECK T 
1 00 104 1$: MOV #1,SICNT 2 
1 j 160 MGV SMXCNT.STIMES 3: 
1 1) $SVLAD: INCB  $TSTNA 33 
1 i 002174 MOVB STSINM,STESTN 3 
16 d¢ MOV (SP) ,SLPADR 3 
14 i MOV (SP) ,SLPERR 3 
14 dC CLR SESCAPE *:CLEAR THE ES DRESS 
14 iyi 002115 MOVB SERMAX 33 LOW ONE(1) ERROR ON NEXT TEST 
14 165210 SOVER: MOV STSTHN ODISPLAY 3 NUMBER 
14 MOV SLPADR, (SP) 2 
14 RTI 23 
14 SMXCNT: ha a2 
.SBTTL TTY INPUT ROUTINE 





FE ARAAAAAAARERAAARAEEERARERERERARERARARARERRERERERERRERERERREREREES 


 ENABL 


£ LE ARAAAAAAAEEAEERARAEREEREEEERAEAEAAERARARARARERERAREARRERERERERERE 
**SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

S*ROUTINE IS EN NTERED FROM THE TRAP HANDLER WILL 

**SERVICE THE TEST CHANGE IN SOFTWARE éuiTcH REGISTER TRAP CALL 


FOR 
RATING IN TTY FLAG MODE. 
@REG, SWR IS THE SOFT-SWR SELECTED? 
BRANCH IF NO 















000176 002140 §$ckSUR: CAP 






TKS 


ono 
sB8e8 
eS 
aN 
wd 
o 
Ww 
— 
o 


1 33 
1 33 
1 33 
1 1 33 
1 1615 asT “(s} 3: 
1 1 ay 83 
2, (S5e 33 

002134 000001 Sairoe a 3 
1 $3 
1 15477 SCNTLG 

018304 SGTSWR: SASWR 

176 MOV SWREG,-(SP) 
PE 


015515 





W SWR 
CHAR THERE? 
;;IF NOT TRY AGAIN 
ssPICK UP cH 
33MAKE IT 7-BIT ASCII 


165104 7$: 


azrie 197600 Bic. 


061005 000025 9$: 
1 015472 





(SP) ,#25 
oSCNTLU 


31S IT A_CONTROL-U? 
sBRANCH IF NOT 
YES, ECHO CONTROL-U (*U) 





' 
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THE NEXT 
TYPE ?<CR><LF> 


CVDRDB.P11 TTY INPUT ROUTINE SEQ 0055 
1 000006 20$: ADD sP 21 PREVIOUS INPUT 
$13896 Soares p> 88 Bharat oe tay 
; 000015 10$: eee 3318S ay A <CR>? 
1 000004 4(SP) *:YES, IS IT THE FIRST CHAR? 
1 11$ [BRANCH IF YES 
1 165024 2(SP) ,aSWR 33 
1 11$: #6,SP 33 
1 1 143: SCRLF ° 
135 000001 SINTAG,# 33 
1 000100 165002. #100, a$Tks ; 
1 013072 16$: PC, S$TYPEC : 
, (3B) R60 : 
000067 (SP) 67 F 
1 #60, (SP)+ 3: 
1 2(SP) 3: 
1 17$ 33 
1 (SP) 33 
: (SP) 8 
1 178 StsP) 4 
900008 ; -2(SP), (SP) 33 
1 : 
1 ; 












PPP PEPER POOP POPP PRP PXLPLO®LLOXLXLOXLO”XLOXLO”XLOXLO>”LPXLOXLOLOLPLP LPP hm te 
a a ee ae ee ee ee Ee ee ee 
et et Sel ed Sal el el al Ct el OO el el ee Pl et Be el el el el el el ll el ll el ll ll el el el el ll lh el ll le ee 


1 002164 18$: gSQues : 
‘SIMULATE CONTROL-U 
.DSABL LSB 
33 SEAAALAAAAARAATAAAAARAAAEEAAAAARARAAERAARARAAARARAERAARARAAAEARAREREER 
:STHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
i. Pr A SINGLE CHARACTER FROM THE TTY 
3* RETURN HERE 38 ON THE STACK 
3% ::WITH PARITY BIT STRIPPED OFF 
4 011 SRDCHR: (SP) ,=(SP) 
900004 000002 (SPS ,2(SP) 
: 1$: TKS 
1 as (SP) 
| 1aZnssogee eye 
1 4(SP) ,#25 
1 
164652 2$ TKS 
1 a$TKB.-(SP) 
1 #°C1 (SP) 
(SP)+,#2 
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A540 aafunvecs®.::PRI 
SP) 


Ro. SP 
SP 


-ASCIZ ; 2 ie = / 

















CVDRDB OR PRT2 
CVDRDB.P1 oh 10:52 TTY INPUT ROU SEQ 0056 
(1) 1$ r:YES, RE 
(1) 000004 000021 3$: 4(SP) ,ASXON 3: & KON? : RANOO! 
(1) 1$ $8 HIF Y ; 1 
(1) 000004 000140 4(SP) ,#140 *:1S IT UPPE ? 
(1) 4$ :;BRANCH IF Y 
(1) 000004 000175 4(SP) ,#175 *:I1S IT A SPECIAL CHAR? 
(1) 4$ *:BRANCH IF YES 
(1) 000040 000004 #40.4(SP) 33 IT UPPER CASE 
(1) $: RTI ::G0 BACK TO USE 
te FE RAAAAAAAAAEEAAAEEAAAEEEEERERERERARAERAEARARARAAAERARREAAAAERERRERE 
(1) eSTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
(1) ta RDLIN iz INPUT A STRING FROM THE T 
(1) 8 RETURN HERE * ADDRESS OF FIRST CHARACTER "yr BE ON THE STACK 
(1 8 *: TERMINATOR WILL BE A BYTE OF ALL O'S 
(7) 01 SRDLIN: MOV ::SAVE R3 
(1) 01 015462 1$: MOV Retrsin. R3 *:GET ADDRESS 
(1) 154 2$: CMP SSTTVINGE, ORS : :BUFFER FULL? 
(1) BLOs }46-s«4$ ::BR IF YES 
(1) RDCHR = GO READ ONE CHARACTER FROM THE TTY 
(1) 01 MOVE (sP)+ (R3) =:GET CHARACTER 
(1) 01 000177 10$:  CMPB 77, (R3) ::1S IT 
(1) OT BNE ::SKIP I 
(1) OT 002164 4$: TYPE SQUES ss TYPE 
(1) BR is CLEAR 
(1) 154 3$: mOvB (R3),9$ : ECHO 
(1) 154 TYPE , 
(1) 1 CMPB 0 s«a#'15,, (R3)+ s:CHECK FOR RET 
(1) 01 BNE *:LOOP IF NOT RE 
(1) 1 177777 CLRB = = 1 (R’3) *=CLEAR RETURN (THE 15) 
(1) OT 002166 TYPE F S23 
(1) MOV (SP)+,R3  sRESTORE R3 
(1) Ot 2 Boy et ee fe eST ET ASCII CHARACTER ON IT) 
a) EEE: tiie mov #STTYIN,4(SP) - 
(1) 01 98: .BYTE * STORAGE FOR ASCII CHAR. TO TYPE 
(1) O1 BYTE 2:2 TERMINA 
) TT -BLKB C8. * sRESERVE 8 BYTES FOR TTY INPUT 
) : -ASCIZ PAU/<15>< 12 ssCONTROL ‘U"' 
ASC1Z /*G/<15><1 * CONTROL ''G 
( 1 
( 
( 
( 
( 
( 
. 
{ 
( 


me ae Newt Sat Ne et See ee et 


ee eS Ss SS 





sie 
: 


FS | 
PAGE 2-34 | 
SEQ 0057 







11J DIAG TST PRT2 MACY11 
CVDRDB. Pl took 1 10:52 


* 1 177 sse78 : :PUSH asur ON STACK 
; i i 000024 "S:SET UP VECTOR 
72HANG UP 


a 


7? 164310 


; eee sentocennnanaenentinnsennntnnessscastcananone 
use sgaet FOR FAST DOWN 


WAIT LOOP FOR THE TTY 
pl FOR THE INC 

POP STACK INTO at 
;POP STACK INTO R 
POP STACK INTO R4 
;POP STACK INTO 

POP STACK INTO - 











434 











a ae ie Teme 





0 RO 
THE POWER DOWN VECTOR 


POWER FAIL 


“ 





+ 
aePuR 
£340, aePURVEC+ 


800340 000026 









BL LL BEE ORO PPP PPL PRPPLOR BPR BPR OR PRO PAP PP 


Ne Ne er Ne et et ee ee ee ee ee er ee a et ee ee ee eee ee ta ee te 


os — 
BER U TERAEELLE RELL 








PWRMSG : MESSAGE POINTER 
(PC)+, (SP) ; TART 
SPWRAD: STARTI : S$ 
SILLUP: ::THE POWER UP SEQUENCE WAS STARTED 
SSAVR6: sins os aH —— 
042522 052123 PWRMSG: .ASCIZ <15><12>/RESTARTED FROM PWR FAIL/ 





eat eet ced 


PRR PR PRR POR PRPPR POLO OR OAL LP On 


we 


-EVEN 
.SBTTL TRAP DECODER 


5 ERRRRARRTRAAAARAARRERAEEAAAAARRAAAAAEAAAAAKEAARREKAAEAKAAethe 
3*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP*’ INSTRUCTION 

3 *AND T TRAP TABLE FOR THE STARTING ADDRESS 
3; #0F THE DESIRED —- THEN USING THE ADDRESS OBTAINED IT WILL 
:*G0 TO THAT ROUTI 





ee ee es es ee es Se Se 










1 1 STRAP: 33SA 
) 000002 336E 
) : BACKUP BY 
} *:GET RIGHT BYTE OF TRAP 
) : POSITION FOR OR, INDEXING 
» 01 015766 STRPAD(RO),RO :: INDEX T 
1) 1 RO 2:60 TO SOUT INE 
} 
1 ::THIS IS USE TO HANDLE THE ‘GETPRI'’ MACRO 
) 1 STRAP2: MOV (sp) -(SP) DOWN 
1 O18 78¢ 016646 000004 000002 MOV SPS ,2(SP) THE PSW DOWN 
1 RTI = sRESTORE THE PSW 
) 


-SBTTL TRAP TABLE 
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EVDRDS. PI SEQ 0058 
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DBUF* IS THE S$ AREA C LOCATIONS 0-202 
; PRESERVED ate 


TORAGE FOR SYSMA 
R TO TEST DRV11J VECTORING TO 
sveatee SPAC 


sRERRERRERERERAAAREEATAAEEEAKERERERAERAAEREAARAERAREEA EE ERENT EES 






(3) 

(3) ;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 

(3) *eBY THE 'T INSTRUCTION. 

; ; ROUT INE 

(3) 01 157 STRPAD: .WORD 

(3) 01 $TYPE ::CALL=TYPE TRAP+1(1 TTY TYPEOUT ROUTINE 
(3) STYPOC ::CALL=TYPOC TRAP+2(1 TYPE OCTAL 

(3) 1 STYPOS ::CALL=TYPOS § TRAP+3(1 TYPE OCTAL NUMBER 

(3) 01 1 STYPON ::CALL=TYPON TRAP+4(1 TYPE OCTAL NUMBER (AS 
» OF 1 STYPDS ::CALL=TYPDS § TRAP#5(1 d $3} TYPE DECIMAL NUMBER (Wl 
(3) 016002 015012 SGTSWR ::CALL=GTSWR  TRAP+6(104406) GET SOFT-SWR SETTING 
(3) 01 14742 SCKSWR ::CALL=CKSUR TRAPS? (106407) TEST FOR CHANGE IN SOFT-SUR 
(3) 01 1 SROCHR ::CALL=RDCHR § TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
if SRDLIN ::CALL=RDLIN  TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
12 ae ITED. wast? <15><12>/CVDRDA DRVI1J DIAG TEST PART 2/<15><12> 
145 016012 041600 042126 042122 tite: ASCIZ VilJ DIAG TEST PART 2/< ::GPA 
45¢ 'GPA iLCABL:,  <ASCIZ. <15><1 >/DRV119 CABLE REQ" b/<1s5<12> 
16 016054 042200 053122 030461 fTLCABL: <200>/DRV11J CABLE REQ’D/< ::GPA 
1459 0161 4 5 EM1: /REG TIMEOUT ER/ : 
1 ‘ 042588 ; : EMG: "REG READ/WRITE ER’ 

52 OT 1 1 5 EMS: _ASCI 
| yo 0463 i : cma: Agee AUR REG ER/ 
iss Sige Ha i Emi, | seed anes tegne "we 
146 : GPA EMI1: ASCIZ /ILLEGAL INTERRUPT RECEIVED/ 

8 01 111 4 > .ASCI EGAL INTERRUPT REC'D/ :sGPA 

5 o1ee%e oestit - oe 2 Emo; ei ERRUPT TEST ERROR/ °° 

47C ij ge eniS:,- “ASCIZ.. MULTIPLE INTERRUPTS: RECEIVED/ 

4 ! 3 5 524 €M13:  .ASCIZ TIPLE INTERRUPTS REC GPA 
4 126 EM14:  ASCI CT ADDR MEM ER/ 

4 051 ; l DH: .ASCI BUSADR EXPCT RCVD/ 

4 1 1 De: “ASCI BUSADR VAM ADDR  EXPCT ~—RCVD/ 
14 1 0511 1 l > SASCIZ BUSADR VAM = ADDR/ 
14 k 1 1 1 DH4:  .ASCIZ TESTPC BUSADR ADDR/ 
147% 
1479 01 1 4 122 DTI: .SGDDAT. SBDDAT, 
1480 01 1 4 1 a SBDADR-VECVAL -VECLOC -S0D0AT, SBDDAT.0 
1481 01 11 4 122 DT3: SBDADR.VECVAL.VE 
1482 Ot 11 r 120 DTé: SGDADR. SBDADR, *VECVAL -VECLOC.,0 
12 
7 ; 
1 
| . 
1 yA 
1 RG 


ed ed ed dd 
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Pit NOokuG=81 10:5 SEQ 0059 
1ST ADRS OF DATA STORAGE AREA 


016754 000102 

MTTTT Ti iitiitiitiiti titi iii iii iii iii iii iii 
CTOR BUFFER USED 4 VECTOR UNIQUENESS TEST 
OR 64 INTERRUPT VECT 


int ne TEE ee easneansebensneeneaneqnneeeceecoeneseee 
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1 10:52 FALCON (KXT=-11) UPGRADE ROUTINES. GPA SEQ 0060 
e 5 »SBTTL FALCON (KXT=11) UPGRADE ROUTINES. 2 2GPA 
1 01 ? THE FOLLOWING ROUTINES HAVE BEEN ADDED TO ALLOW DIAGNOSTIC(S) 
15¢ > TO RUN ON A FALCON CxT=1D) ,SASED S YSTEM. | 
150: ; TO DETERMINE WHETHER WERE A FALCON OR NOT, WEILL SIZE Ar Bbxs4)" 10 3/4 
1502 : AGE ( kK). FALCON HAS T 
15¢ ° T Ar. TO 31K. QUENTLY ott Mo MDEVICES MUS 
1506 ; EN i ADDITIONALLY, WE'LL. STRAP. THE 
134 ; AVICE | LEVEL TO PRI6, AND SET THE HALT VECTOR SO THAT 
1506 : 
151¢ : IMPACT OF THESE CHANGES ON FINAL Eibbez HE 
1 : THIS CODE IS PLACED IN THE FLOATING yecTOR R SPACE ( 
7 : JF THE CPU AT HAND IS A FALCON (KXT11), IT STAYS THERE (NO HARM DONE). 
> OTHERWISE, THE AREA IS RESTORED TO ITS ORIGINAL -TRAPLCATCHER' STATE. 
1 15 01 5 ? 177777 F : ONCE-ONLY !!! 33 GPA 
1 i 6 000400 : EXECUTE FALCON CHECK GPA 
1 7 1$ : TEST rc FLAG... 3:GPA 
; 76 :. 2 AND “RETURN TO CALLER... GPA 
32GPA 
s RESTORE FROM 374:376 AT END ::GPA 
17374 KXTCHK : : AS NOT FALCON. :2GPA 
: SAVE ERRO? VECTOR. GPA 
: 000004 * SET A TRA? CATCHER. GPA 
0 #160010,R0 * FALCON RAM STARTS AT 28K+4. ::GPA 
$1. 1$: TST (RO)+ : ::GPA 
+ 240 33GPA 
; CAP #174000 : SIZE TO 31K. :36GPA 
! MOV RO.KXTFLAG ; MUST BE FALCON, SET THE FLAG ::GPA 
, mov  #40,R0 ; GET PRI1 BIT... 3:GPA 
BIC aes *..AND LOWER QUS-ERROR... GPA 
§ BIC oR 3 00cBP Toe. GPA 
' BIC af 2 cockaee 3:GPA 
; Bic ; ETSTAND TRAP SERVICE TO PRIG — ::6PA 
; 14 000140 MOV av140 ENABLE "BREAK" HALT. :EGPA 
; 6: MOV (SP) +, ans > RESTORE ERROR VECTOR... GPA 
4 RETURN ; RETURN. GPA 
4 28: MOV  #3$,(SP) ; 4 FALCON... 3 3GPA 
RTI : GPA 
MOV #400 : TING... ::GPA 
+ MOV 76.R1 Sens ~ 776). 3 GPA 
4 aad ir8 Se 3: SAVE STACK POINTER IN R2 33GPA 
; 4$: MOV =(R&) .=(SP) : PUSH THE RESTORE CODE... GPA 
j cw R4,45$ *...0NTO THE STACK. ::GPA 
MOV SP PC : AND EXECUTE IT. : GPA 


1 
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FALCON (KXT-11) UPGRADE ROUTINES. Z:GPA 
: THIS CODE IS RELOCATED TO AND EXECUTED IN THE STACK AREA. 
Ss: MOV RO. 724 =2{R0) RESTORE .+2... 

MOV (RO : HALT (OR 107). 

CMP Rab) tRO)+ 

CMP R0. A706 

BLOS : LOOP "TIL DONE 

R2,SP > THEN RESTORE SP... 
...AND RETURN TO CALLER 






S FREE FOR ANY PROGRAM UNIQUE 





IF FALCON THIS AREA I 
oR T 


aaa a 


HANGES OR DATA STRUCTURES. 
IF USED, YOU'D BETTER PROTECT IT !!! 
SFREE= <1000-.>/2 : FREE WORDS LEFT. 
.=$SVPC 
LASTAD= . 
END 


>>>?> 


333 


SEQ 0061 
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CVDRDB .P11 AUG~-81 10:52 SYMBOL TABLE 
= AVECT1= Q0000C IN 1 
RCO = OC avectis 100006 Th +. 
ACDW2 = BDSAV. 00246 IN 3¢ 
ACPUOP= BGC 112636 IN 33 ¢ 
AC BIT = )000C 1 TM 4 
= BIT = 900€ ! 1 TR ; 
= B1TO1 = 000 2 I 
BIT = 900€ ' I : 
: BIT0G = 500024 INT : 
= 000020 ; 
aDowt BITOS = 000040 I 36¢ 
Sos = Sle iss S138 
= = 000206 
His : Bae ie He 
= = OOTOUOL 
z BIT? = 00000 I 41 5¢ 
> BIT10 = 00200 I 41 0: 
ADDWG = BIT11 = 00400 INT r 100256 
= oitig = ¢ oC ‘it INT 2 10244 
pte = BIT13 = 020006 INT $26 0025¢ 
= BIT14 = 040006 INT31 4 124C 
WDEVCT= BIT15 = 10000C INT 4 5200 
VM = Bite = 0000 INT 44 204 
AENV. = BITS = 00001C INT 44 25¢ 
AENVM = BIT4 = 00002C INT35 45 53 
AFATAL= BITS = 000040 INT 45 6 36 
AMADRI1= BIT6 = sd ht 7 INT & 50 
AMADR2= = 00( 120 INT3B (0124 t 
= 00040 0161 ¢ INT 4 
= 00100¢ 0161 INTS 256 : 
AMAMS1= = 000014 0161 INT40 ; 7 NOOO 
AMAAS 0247 01620 INT41 50 00004 ( 
8 0024 16216 INT4 5 0001 0¢ 
= C ' 008 17566 INT4 51 ; 
CHPISR= 00014 11636 INT64 01251 7 
G= ¢ 100040 01210 INT45 5 34 ¢ 
Ys C 00C : 2¢ 0000 INT4 5 100 3¢ " 
AMTYP1= C 9001 0C 1 ; INT4 iM 4 ( 
AMTYP. C 900166 " 4 INT4 ; 
ANTYP ¢ 044¢ 102462 INT4 r 7 
AMTYP4= C 17 04406 INT 34 ( 
APASS = C 911014 000011 INT5O 11570 
TOR= C 11076 00100 INT 
SU= 0C ' 90244 INT vanT, 
. M 0C 5 ' 45 im ? 
y 006 ' f oh INT 5 % 
20C 1¢ 1 4 INT M001 C 
00176 INT t 
G= i358 1224 INT : 
ATES 5 1 INT 
AUNIT = 118 INT11 1 INT6 
AUSWR = 64 INT12 012316 INT60 00060 
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